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ABSTRACT 


Accurate  measurement  of  particle  size  distribution  of  rocket  motor  exhausts  is 
essential  for  predicting  the  combustion  efficiency  and  infrared  plume  signature.  This 
thesis  presents  an  automated  method  for  extracting  particle  size  distribution  from 
scanning  electron  microscope  (SEM)  images.  The  SEM  images  were  taken  off  a 
filter  paper  placed  at  the  end  of  a  collection  probe  inserted  into  the  exhaust  plume. 
The  automated  SEM  extraction  system  consists  of  an  IBM  AT-based  computer 
system  fitted  with  a  512  x  480  pbcel  frame  grabber.  Photographic  images  taken  off 
the  SEM  are  acquired  via  a  vidicon  camera.  A  C  language  program  was  written  to 
control  the  hardware  and  automate  the  extraction  process.  A  threshold  is  first 
applied  to  the  digitized  image  and  the  resulting  binary  image  is  subjected  to  object 
segmentation.  Each  object  is  then  sized  and  the  distribution  from  one  or  more 
images  can  be  plotted.  The  main  bulk  of  this  thesis  is  to  document  the  software 
specially  written  to  undertake  this  set  of  tasks.  Results  obtained  were  compared  with 
that  from  a  Malvern  MasterSizer  particle  sizer  and  found  to  be  favorable.  Particles 
as  small  as  1/8  /am  have  been  successfully  sized. 
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L  INTRODUCTION 


The  rationale  for  analyzing  scanning  electron  microscope  (SEM)  images  of 
combustion  exhaust  stems  from  the  on-going  research  to  investigate  particle  behavior 
in  exhaust  nozzles  and  plumes  of  solid  propellant  rocket  motors.  Netzer  and  Powers 
describe  various  methods  being  tried  in  the  quest  to  obtain  accurate  particle  size 
distribution  [Ref.  1].  Accuracy  is  essential  because  the  various  computer 
codes  available  for  predicting  performance  and  infrared  signatures  are  highly 
sensitive  to  the  particle  size  distribution. 

Traditionally,  SEM  images  are  analyzed  visually  by  a  trained  observer,  with  the 
aid  of  linear  scales  (stage  or  eyepiece  micrometer),  graticules  (British  Standard  BS 
3406),  or  other  visual  cues.  Full  use  is  made  of  the  human  observer’s  ability  and 
talent  to  differentiate  shapes  and  features.  Humphries  [Ref.  2]  has  a  concise 
description  of  the  various  methods.  Disadvantages  include  low  productivity,  fatigue, 
observer  subjectivity,  and  a  high  probability  of  error.  The  generally  small  sample 
population  which  a  human  observer  is  able  to  analyze  also  results  in  sampling  errors 
due  to  poor  statistical  averaging. 

The  standard  procedure  in  particle  size  analysis  (PSA)  is  to  allot  each  particle 
to  its  appropriate  size  class  and,  from  the  resultant  data,  calculate  (or  determine 
graphically)  parameters  that  adequately  describe  the  size  distribution.  These 
parameters  include  particle  projection  lengths,  perimeter,  form  factor,  area  and 
volume.  Automatic  PSA  offers  a  significant  advantage  over  manual  microscopy  in 
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that  it  allows  large  numbers  of  particles  to  be  measured  consistently  and  accurately. 
However,  automatic  PSA  is  not  without  limitations.  Resolution  and  contrast 
performance  of  the  imager  is  generally  poorer  than  the  human  eye.  Also,  the 
instruments  for  such  systems  tend  to  be  rather  elaborate  and  expensive. 

The  current  effort  is  a  spin-off  from  work  done  with  holograms,  first  by 
Redman  [Ref.  3]  and  Orguc  [Ref.  4]  using  the  FORTRAN  language,  and 
subsequently  by  Kaeser  [Ref.  5]  and  Hockgraver  [Ref.  6]  in  the  C  language.  The 
C  algorithms  used  in  this  thesis  have  been  optimized  for  speed,  yet  have  reduced 
false  feature  identification.  In  the  earlier  work  with  holograms,  significant  problems 
were  encountered  with  speckle  in  the  reconstructed  hologram  images.  This  limited 
the  particle  size  determination  to  particles  larger  than  10  microns  [Ref.  7]. 
The  current  work  attempts  to  analyze  particles  down  to  the  resolution  limits  of  the 
imaging  system.  For  the  SEM  images  analyzed,  particle  size  distributions  down  to 
one-eighth  of  a  micron  have  been  achieved. 

This  thesis  is  divided  into  six  chapters.  Chapter  II  describes  the  SEM  images, 
what  they  represent  and  how  they  are  obtained.  Chapter  III  provides  an  overview 
of  all  the  hardware  and  software  required  to  support  this  work.  Chapter  IV  goes  into 
the  detailed  description  of  the  program  modules  making  up  the  Scanning  Electron 
Microscope  Extraction  (SEMEX)  program  which  forms  the  bulk  of  the  current  effort. 
Chapter  V  describes  the  procedures  required  to  acquire  a  SEM  image  from  a 
photograph,  to  process  it  to  a  form  suitable  for  extraction  of  particles,  and,  finally, 
to  extract  and  compile  the  results  for  plotting  or  further  statistical  analysis.  Chapter 
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VI  describes  the  experimental  results  beginning  with  calibration,  speed  performance 
comparison  with  earlier  programs,  and  finally  summarizes  the  results  from  SEM 
images  obtained  from  an  actual  motor  burn.  The  latter  are  correlated  with  results 
obtained  from  the  Malvern  MasterSizer  particle  sizer  [Ref.  8],  The  last 
chapter  lists  the  conclusions  arrived  at  and  recommendations  for  future  efforts  in  this 
area. 
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II.  SEM  IMAGES  OF  COMBUSTION  EXHAUST 
This  chapter  introduces  the  combustion  mechanisms  involved  in  metallized 
solid-fuels  and  solid-propellants,  and  the  need  for  accurate  measurement  of  the 
plume  particle  size  distribution.  One  such  method  using  SEM  images  of  the 
collected  exhaust  is  described. 

A.  COMBUSTION  PHENOMENA 

The  higher  energetic  performance  of  metallized  solid-fuels  (i.e.,  fuels  containing 
boron,  magnesium,  titanium,  aluminum,  etc.)  has  sparked  considerable  interest  in 
solid-fuel  ramjets.  While  the  exact  combustion  phenomena  for  metallized  fuels  has 
not  been  fully  understood,  Gany  and  Netzer  [Ref.  9]  describes  one  possible 
scenario,  shown  in  Figure  1.  During  combustion,  the  hydrocarbon  fuel  vaporizes  at 
the  surface  exposing  the  metal  fuel  particles.  As  there  is  little  or  no  oxygen  at  the 
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fuel  surface,  these  metal  particles  can  heat  up  but  will  not  ignite.  As  more  of  the 
surrounding  hydrocarbon  fuel  vaporizes,  the  metal  particles  tend  to  coalesce  before 
being  ejected  into  the  main  flow  which  is  rich  in  oxygen.  A  particle  may  collide  with 
other  particles  and  agglomerate,  or  it  may  contact  oxygen  and  ignite  intensely. 
Agglomeration  of  metal  particles  may  be  one  reason  for  poor  combustion  efficiency. 
Another  may  be  due  to  the  oxide  coating  on  the  particle,  thus  slowing  the  rate  of 
chemical  reaction.  Agglomeration  and  oxidation  also  result  in  a  large  variation  in 
particle  sizes. 

Metals  are  also  added  to  solid-propellants  for  rocket  applications  to  provide 
combustion  stability  and/or  increased  performance.  Aluminum  is  the  most  often 
used  performance  enhancer.  The  particles  burn  to  produce  aluminum  oxide  of 
varying  sizes.  When  these  particles  pass  through  the  exhaust  nozzle,  they  can  change 
in  size  distribution  due  to  breakup  and  collisions.  This  two-phase  flow  results  in  a 
loss  in  delivered  thrust.  When  these  particles  exit  the  nozzle  into  the  plume,  they 
significantly  affect  the  plume  radiation.  The  infrared  signature  of  the  exhaust  plume 
is  a  function  of  the  temperature  profile  of  the  plume  and  this,  in  turn,  is  dependent 
on  its  composition  of  hot  gases  and  metal  particles.  From  high-speed  infrared 
imaging,  it  is  noticed  that  the  center  of  the  plume  appears  hottest.  Some  of  this  is 
due  to  afterburning  of  the  fuel-rich  exhaust  gases  with  the  ambient  oxygen.  It  is  also 
suspected  that  the  larger  particles  cannot  turn  as  rapidly  as  the  gas  within  the  exhaust 
nozzle,  resulting  in  these  particles  being  located  nearer  to  the  plume  centerline. 
They  also  have  a  greater  heat  capacity  and,  hence,  cool  off  slowest  after  exiting  from 
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the  exhaust.  Accurate  prediction  of  plume  radiation  requires  accurate  knowledge  of 
the  particle  size  distribution  at  the  nozzle  exit.  To  validate  the  codes,  axial  and 
radial  variations  in  the  plume  particle  size  distribution  need  to  be  accurately 
measured. 

The  need  for  accurate  determination  of  particle  size  and  their  distribution  is 
recognized  and  accurate  methods  are  available  to  determine  modal  distributions. 
However,  a  complication  lies  in  the  multi-modal  distributions  caused  by  the  wide 
range  of  particle  sizes  expected.  Particle  sizes  may  vary  from  sub-micron  sizes  to 
several  tens  of  microns.  For  particles  larger  than  about  2  /xm,  various  methods,  such 
as  forward  laser-diffraction  measurements  [Ref.  10]  have  been  successful.  For  sizes 
down  to  0.5  /xm,  the  Malvern  MasterSizer  particle  sizer  has  been  used;  utilizing  Mie 
corrections  to  the  diffraction  equations  [Ref.  8].  Measurements  using  these 
techniques  have  not  been  successful  for  particles  in  gas  flows  smaller  than  0.5 
because  of  the  requirement  for  short  focal  length  lenses  and  the  resulting  restricted 
measurement  volumes.  Analysis  of  the  collected  exhaust  particles  using  the  SEM 
avoids  these  problems  and  shows  promise  as  it  allows  for  very  clean  images  even  at 
high  magnification.  Resolutions  down  to  one-eighth  of  a  micron  have  been  possible, 
as  is  shown  in  this  work. 

B.  SOURCE  OF  SEM  IMAGES 

The  SEM  images  are  extracted  from  combustion  exhaust  taken  from  a  small 
(5  cm)  experimental  rocket  motor  developed  by  the  Naval  Postgraduate  School. 
Different  propellant  compositions  are  being  tested.  The  firings  and  subsequent 
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extraction  of  the  SFM  images  were  carried  out  by  CAPT  Lyle  Kellman,  a  thesis 
student  working  under  Prof.  David  Netzer.  A  detailed  description  of  his  work  is 
found  in  his  thesis  [Ref.  11].  Each  firing  produces  two  sets  of  Malvern 
MasterSizer  data,  one  generated  directly  during  the  burn  and  another  from  dissolving 
the  filter  paper  removed  from  the  collection  probe.  Part  of  the  filter  paper  from  the 
collection  probe  is  also  analyzed  under  the  SEM.  The  resulting  SEM  images  are  the 
inputs  to  SEMEX  and  the  focus  of  this  thesis  study. 

1.  Experimental  Setup 

The  combustion  exhaust  from  the  rocket  motor  is  sampled  with  the  aid  of 
a  collection  probe.  The  probe  is  placed  at  a  desired  location  behind  the  exhaust 
nozzle  and  is  protected  from  the  intense  heat  of  the  exhaust  by  a  plume  deflector. 
The  deflector  prevents  the  plume  from  impinging  on  the  collection  probe  tip  until 
the  rocket  motor  achieves  steady-state,  and  is  then  lowered  for  one  second.  The 
exhaust  enters  the  collection  probe  through  a  small  entry  nozzle  and  expands  inside, 
depositing  the  combustion  products  on  a  filter  paper.  At  about  the  same  time,  the 
Malvern  MasterSizer  is  activated  to  scan  the  captured  exhaust  plume  and  to  store  its 
results  for  later  analysis.  A  schematic  of  the  setup  is  shown  in  Figure  2. 

2.  Preparation  of  SEM  Specimens 

After  firing,  the  f'ter  paper  is  removed  from  the  rear  of  the  probe.  Two 
half-inch  diameter  samples  are  cut  out  from  the  edge  and  center  of  the  filter  paper. 
These  samples  are  gold-plated  in  preparation  for  scanning  under  the  SEM. 
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Figure  2.  Experimental  setup  to  collect  exhaust  particles  from  a  solid- 

propellant  rocket  motor  [Ref.  11]. 

The  rest  of  the  filter  paper  is  dissolved  in  acetone.  The  metal  particles  are 
allowed  to  settle  to  the  bottom  and  the  supernatant  liquid  is  siphoned  off.  This 
process  is  repeated  several  times  until  the  paper  is  fully  dissolved  and  removed.  In 
the  final  step,  acetone  is  added  again  and  the  mixture  of  acetone  and  solid  particles 
is  agitated  to  get  a  homogeneous  mixture.  A  drop  of  this  mixture  is  extracted  and 
analyzed  with  the  Malvern  MasterSizer.  This  produces  a  second  set  of  Malvern 
results. 

One  source  of  error  comes  from  dirt  or  other  debris  being  introduced  on 
the  filter  paper  during  combustion  and  subsequent  handling.  Sampling  errors  can 
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occur  if  the  half-inch  samples  are  not  taken  from  representative  portions  of  the  filter 
paper  where  particles  are  uniformly  distributed. 

3.  Photographing  the  SEM  Images 

The  prepared  specimens  are  placed  inside  a  Hitachi  Model  S450  SEM  and 
the  SEM  chamber  evacuated  to  a  high  vacuum.  The  specimens  can  be  moved  about 
in  search  of  representative  portions  of  the  specimens.  This  is  carried  out  with  the 
SEM  on  low  magnification.  The  area  being  scanned  is  displayed  on  a  high- 
persistence  CRT.  Once  particles  are  found,  the  magnification  is  increased  to  1,000. 
The  scanning  electron  micrographs  are  then  recorded  on  Polaroid  photographic  film 
for  subsequent  analysis  by  SEMEX.  The  resulting  images  have  between  5  and  1,000 
particles,  depending  on  the  type  of  propellant  used,  the  time  of  exposure,  the 
distance  of  the  collection  probe  from  the  exit  nozzle,  the  radial  position  of  the  probe, 
and  the  location  of  the  filter  paper  from  which  the  sample  was  taken.  To  increase 
the  number  of  particles  on  a  single  photograph,  multiple  exposures  were  taken  from 
different  fields.  It  was  found  that  up  to  four  exposures  could  be  taken  without 
significant  degradation  to  the  image.  The  SEM  was  set  for  maximum  contrast  and 
minimum  brightness  so  that  the  background  stays  relatively  dark  even  after  four 
exposures. 

A  source  of  error  comes  about  from  the  choice  of  the  area  to  be 
photographed.  This  is  a  subjective  task.  Many  of  the  areas  may  contain  only  a  few 
particles  while  a  few  areas  may  contain  a  large  splattering  of  particles.  Each 
photographed  area  (70  by  80  Mm)  only  represents  about  l/22,500th  of  the  sample 
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area  and  typically  only  30  to  40  different  areas  can  be  photographed  in  a  4-hour 
session.  Thus,  the  size  distribution  of  the  particles  can  be  heavily  biased  by  the  SEM 
operator  if  the  particles  are  not  evenly  distributed. 


C.  CURRENT  EFFORTS 

Current  work  carried  out  by  the  Naval  Postgraduate  School  for  the  Air  Force 
Phillips  Laboratory  include  analysis  of  the  exhaust  plume  by  high-speed  video  and 
infrared  cameras,  programmed  data  acquisition  of  temperature  and  pressure  using 
transducers,  and  analysis  of  the  exhaust  plume  composition  by  the  Malvern 
MasterSizer  and  SEMEX.  The  experimental  data  will  be  used  both  as  inputs  to  and 
for  validation  of  plume  prediction  computer  codes.  The  work  is  primarily  carried  out 
by  the  Aeronautics  Department  with  the  Electrical  and  Computer  Department 
assisting  in  the  area  of  SEM  image  digitization  and  feature  extraction. 

In  this  thesis,  the  work  done  encompasses  the  development  of  the  SEMEX 
program  and  the  setting  up  of  a  reliable  methodology  for  the  digitization  and  feature 
extraction  of  the  SEM  images.  Calibration  of  the  system  has  been  carried  out  and 
comparisons  have  been  made  with  the  Malvern  MasterSizer.  The  performance  of 
several  SEMEX  modules  (in  particular,  CLIP,  TAG  and  SIZE)  have  also  been 
compared  with  relevant  portions  of  the  HOLOGRAM  C  program  developed  by 
Kaeser  [Ref.  5]  and  improved  upon  by  Hockgraver  [Ref.  6].  The  results  have  been 
favorable. 
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III.  OVERVIEW  OF  THE  AUTOMATED  SIZING  SYSTEM 


The  automated  particle  sizing  system  consists  of  an  IBM  AT  microcomputer 


fitted  with  dedicated  hardware  and  run  by  a  program  written  in  the  C  language. 
Figure  3  shows  the  equipment  involved  in  the  extraction  of  particle  size  data  from 


Figure  3.  Diagram  showing  the  equipment  setup  used  for  extracting 

particulate  size  data  from  SEM  photographic  images  [.After 
Ref.  12], 


SEM  photographic  images.  SEM  photographic  images  are  acquired  by  the  vidicon 
camera  and  digitized  by  the  frame  grabber.  Processing  of  the  images  is  carried  out 
by  the  IBM  AT  and  the  processed  image  is  displayed  on  the  video  monitor. 
Digitized  images  in  the  frame  memory  can  be  saved  to  disk  for  later  retrieval.  User 


dialog  is  carried  out  through  the  use  of  the  computer  monitor  and  the  keyboard.  A 
hardcopy  of  the  digitized  image  can  be  printed  on  the  video  copy  processor.  The 
details  of  the  hardware  configuration  and  the  software  support  are  described  in  the 
rest  of  this  chapter. 


A.  HARDWARE  CONFIGURATION 

The  system  configuration  consists  of  the  following  hardware: 

•  IBM  AT  with  Intel  Inboard  386/AT  accelerator  board  and  EGA  monitor.  The 
Inboard  386/ AT  disables  the  Intel  80286  microprocessor  inside  the  IBM  AT 
and  executes  programs  with  the  32-bit  Intel  803^^  icrop’-ocessor  running  at 
16  MHz.  This  enhancement  gives  a  speedup  17.6  over  a  standard  IBM  PC. 
The  computer  also  has  a  80287  ma  \i  coprocessor  running  at  10  MHz  to  speed 
up  floating  point  operations,  ilie  EGA  monitor  functions  in  text  mode  and 
displays  the  dialog  boxes.  Tne  use:  .'nkcs  his  or  her  choices  by  typing  in 
commands  on  the  keyboard. 

•  Imaging  Technology  PCVISIONp/uj  frame  grabber  board.  This  is  a  video 
digitizer  and  frame  memory  capable  of  digitizing  the  standard  RS-170 
composite  video  input  from  the  vidicon  camera.  Figure  4  shows  a  block 
diagram  of  the  frame  grabber.  Two  camera  inputs  are  available.  Each  camera 
input,  in  turn,  has  three  input  charmels  (red,  blue,  and  green)  to  handle  pseudo¬ 
color  images.  However,  only  the  green  channel  is  being  used  for  monochrome 
images  because  it  carries  the  synchronization  signals.  The  built-in  gain  and 
offset  circuits  can  be  adjusted  through  software  control  to  achieve  optimum 
brightness  and  contrast.  The  look-up  tables  (LUTs)  are  special  memories  used 
to  transform  pixel  values  without  altering  the  contents  of  frame  memory. 
Although  there  are  32  LUTs  (8  input  LUTs,  and  8  output  LUTs  for  each  of  the 
red,  blue  and  green  chaimels),  only  one  input  LUT  and  one  output  (green) 
LUT  are  required.  The  digitized  image,  stored  in  a  special  on-board  high¬ 
speed  memory  (called  the  frame  memory),  can  be  manipulated  by  specially 
written  software  functions  and  saved  to  a  disk  file  for  later  analysis.  The  frame 
memory  can  handle  up  to  two  images,  each  512  x  512  pixels  wide.  However, 
the  RS-170  video  signal  can  only  provide  512  pixels  by  480  lines.  Therefore, 
the  481st  to  512th  rows  of  the  frame  memory  are  not  used.  The  digitized 
image  has  to  be  converted  back  to  analog  RS-170  video  signals  before  the 

age  can  be  displayed  on  a  composite  video  monitor.  [Ref.  12] 
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Figure  4. 


Block  diagram  of  the  PCVlS10N/?/u5  frame  grabber  board 
[From  Ref.  12]. 


Panasonic  Model  WV-1410  CCTV  camera  and  light  table.  The  Closed-Circuit 
Television  (CCTV)  camera  uses  a  525-line  vidicon  imaging  element  with 
25  mm  f/1.4  lens  and  is  able  to  operate  down  to  5  lux  incandescent 
illumination.  The  internal  electronics  scan  and  convert  the  image  into 
composite  monochrome  video  which  is  routed  to  the  frame  grabber.  The  light 
table  (not  shown)  consists  of  an  adjustable  mount  for  the  camera  and  four 
75  W  incandescent  lamps  fitted  with  diffusers.  Setting  the  height  at 
approximately  13  inches  from  the  SEM  photograph  enables  the  3.5"  by  4.5" 
photographic  image  to  be  captured  onto  the  512  x  480  pixel  video  frame.  The 
camera  and  illumination  setup  is  critical  for  obtaining  a  good  digitized  image. 
A  piece  of  flat  transparent  glass,  used  to  hold  the  photograph  flat,  completes 
this  setup.  Dust  particles  should  be  excluded.  The  placement  of  the  lamps  is 
crucial  for  obtaining  even  illumination.  A  detailed  procedure  is  provided  in 
Chapter  V. 

Panasonic  TR-196M  monochrome  composite  video  monitor.  This  is  used  to 
display  the  digitized  SEM  image  and  any  video  operations  carried  out  on  it. 
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on  it.  The  horizontal  size  of  this  particular  monitor  cannot  be  adjusted  to 
display  the  full  frame.  Hence,  the  left  and  right  edges  are  not  visible  and  can 
only  be  seen  using  the  video  copy  processor.  This  is  a  serious  shortcoming  as 
edge  artifacts  caused  by  poor  light  placement  cannot  be  detected  readily. 

•  Tektronix  HCOl  video  copy  processor.  The  video  copy  processor  accepts 
composite  video  from  the  output  channel  of  the  frame  grabber  board  and  is 
used  for  making  a  hardcopy  of  the  video  image  displayed  on  the  composite 
video  monitor.  The  video  copy  processor  uses  a  thermal  process  to  etch  the 
video  image  onto  4-inch  wide  heat-sensitive  paper. 

•  IOMEGA  Bernoulli  Box  II  dual  removable  cartridge  disk  (RCD)  system.  Each 
RCD  consists  of  two  flexible  disks  enclosed  in  a  plastic  housing  providing 
20  MB  of  formatted  disk  storage.  As  each  digitized  image  takes  between 
100  kB  to  250  kB  in  a  compressed  form,  this  allows  storage  of  approximately 
100  images  in  each  RCD.  One  drive  is  dedicated  to  storing  image  and  data 
files.  The  data  files  contain  the  tabulated  particle  sizes  {.dat  files),  the 
histogram  results  {.his  files)  and  the  session  activities  (.5^5  files).  The  other 
drive  contains  the  executable  SEMEX  file  and  the  C  source  codes  for  all  the 
modules,  together  with  the  library  files  and  the  software  development  system. 
A  44  MB  version  of  the  RCD  is  also  available. 

•  HP  LaserJet  series  II  printer  for  producing  a  hardcopy  of  the  results  and  the 
histogram  plots  (optional). 


B.  SOFTWARE  SUPPORT 

The  software  used  to  support  this  work  include:- 

•  Microsoft  C  Optimizing  Compiler,  version  5.1,  with  Large  Memory  Model  Run¬ 
Time  Library,  CodeView  Symbolic  Debugger  and  Overlay  Linker.  This 
provides  the  C  programming  language  and  the  software  development  system  for 
the  SEMEX  program.  The  compiler  converts  the  C  source  files  into  object 
files  which  are  linked  together  with  the  libraries  by  the  linker.  The  large 
memory  model  library  (LLIBCE.LIB)  is  recommended  by  Imaging  Technology 
to  support  their  ITEX  PCplus  software.  This  model  allows  for  multiple  64  kB 
segments  for  both  code  and  data  to  contain  the  large  image  and  data  arrays. 
CodeView  aids  in  the  debugging  process  by  allowing  single-step  program 
operation  while  observing  key  variables.  Microsoft  also  has  a  MAKE  facility 
that  automates  the  compilation  and  linking  process  through  the  use  of  a  special 
batch  file  shown  in  Appendix  A. 
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Star  Guidance  Window  BOSS  windowing  package.  The  Window  BOSS  is  an 
extensive  library  of  C  functions  for  the  creation,  management  and  manipulation 
of  text  winaows,  which  are  essentially  dialog  boxes  for  program-user  interaction. 
It  allows  for  multiple  windows  to  be  created  using  dynamic  memory  allocation 
and  manages  these  windows.  Window  attributes  like  border  styles,  border 
colors,  and  window  foreground  and  background  colors  can  be  set.  Context- 
sensitive  help  screens  can  be  easily  implemented.  Forms  and  input  functions 
are  also  available  to  aid  the  programmer  in  developing  user-friendly  dialog 
boxes.  The  Window  BOSS  is  a  shareware  product.  [Ref.  13] 

Imaging  Technology  ITEX  PCplus  Large  Memory  Model  (ITEXPCML.LIB) 
Library.  The  ITEX  PCplus  is  a  library  of  image  processing  and  graphics 
functions  specially  written  to  support  the  PCVISIONp/i4y  Frame  Grabber.  Only 
a  few  of  the  functions  are  actually  used  in  SEMEX  and  these  include  setting 
up  of  the  frame  grabber’s  control  registers  and  LUTs,  reading  and  writing  a 
single  pbcel  value,  reading  and  writing  the  frame  memory  from  and  to  disk,  and 
thresholding  an  image.  Details  can  be  found  in  the  ITEX  PCplus 
Programmer’s  Manual  [Ref.  14]. 

Mathworks  M.A.TLAB  386.  This  mathematical  programming  package  is  used 
to  produce  the  histogram  plots  subsequent  to  the  ANALYZE  stage.  A  script 
file  was  written  to  automatically  read  in  a  SEMEX  data  file  and  plot  the 
results.  It  can  also  plot  the  Malvern  data.  This  file  appears  at  the  end  of 
Appendix  B. 

SEMEX  (Scanning  Electron  Microscope  Extraction)  Program  is  a  set  of 
program  modules,  written  in  the  C  programming  language  as  part  of  this  thesis 
work.  This  program  comprises  thirty-seven  locally-written  functions  and 
handles  the  six  stages  required  in  extracting  particle  size  information.  The  first 
involves  setting  up  the  system  to  ensure  correct  illumination,  camera  input  gain 
and  offset,  and  calibration.  The  second  stage  deals  with  the  digitization  of 
SEM  images,  cropping  the  digitized  image  to  the  desired  area  of  interest,  and 
complementing  the  image,  so  as  to  obtain  a  digitized  image  of  the  area  of 
interest  with  particles  dark  against  a  light  background.  The  third  stage  employs 
thresholding  to  form  a  binary  image.  The  fourth  and  fifth  stages  involve 
particle  tagging  and  particle  sizing  respectively.  Here,  particles  are  identified 
from  the  background  and  their  x-chord  and  y-chord  lengths  and  areas  are 
measured.  The  final  stage  merges  the  data  from  several  images  and  analyzes 
the  resulting  data.  The  analysis  involves  extracting  three-dimensional  features 
from  the  two-dimensional  images.  Presently,  this  last  stage  has  been  written  to 
generate  results  similar  to  the  Malvern  MasterSizer.  The  latter  puts  out  a 
histogram  plot  of  percentage  of  particle  volume  against  a  logarithm  scale  of  the 
particle  diameters.  SEMEX  generates  the  histogram  data  and  makes  use  of 
MATLAB  to  generate  the  histogram  plots.  The  source  listings  for  the  various 
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modules  are  found  in  Appendix  B  and  detailed  descriptions  are  given  in 
Chapter  IV. 
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IV.  DETAILED  DESCRIPTION  OF  SEMEX 


SEMEX  is  the  name  given  to  the  executable  file  made  up  of  the  seven  C 
language  program  modules  described  in  the  following  sections.  SEMEX  stands  for 
Scanning  Electron  Microscope  Extraction.  SEMEX  was  written  with  the  aim  of 
providing  a  user-friendly  environment  which  is  flexible,  yet  highly  efficient  for 
digitizing  SEM  photographic  images  and  extracting  particle  size  distribution  data. 
Windows  (dialog  boxes)  guide  the  user  through  the  whole  process  of  setup, 
acquisition,  processing  (more  specifically  clipping,  tagging,  and  sizing),  and  analysis 
as  shown  in  Figure  5.  Generally,  SETUP  and  ANALYZE  need  only  be  done  once 
at  the  beginning  and  at  the  end  of  a  session,  respectively.  ACQUIRE,  CLIP,  TAG, 
and  SIZE  need  to  be  done  as  many  times  as  there  are  images  to  extract. 

Formatted  inputs  disallow  illegal  user  responses  while  extensive  error  trapping 
prevents  unintentional  user  inputs  from  resulting  in  fatal  problems.  A  record  of  each 
session’s  activities  is  automatically  created  in  an  ASCII  text  file  format  which  can  be 
reviewed  or  printed  out  as  a  permanent  record  by  any  text  editor  program.  The 
sessions  file  uses  a  filename  formed  from  the  current  date  (i.e.,  the  first  three  letters 
of  the  month  and  a  two-digit  day)  with  the  extension  of  .ses.  In  this  way,  each  day’s 
activities  are  recorded  in  a  separate  file.  If  more  than  one  session  is  started  in  a 
single  day,  the  second  session  will  be  appended  to  the  end  of  the  first.  This  prevents 
any  record  from  being  written  over.  Alternatively,  the  user  can  type  in  a  filename 
during  setup. 
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Figure  5.  Typical  sequence  of  activities  in  SEMEX. 
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Figure  6.  Block  diagram  of  SEMEX  modules  (rounded  rectangles)  and  their 

functions. 
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Figure  6  gives  an  overview  of  the  various  modules  and  functions,  and  the 
filenames  they  are  contained  in.  Detailed  descriptions  of  each  of  the  program 
modules,  the  algorithms  used  and  any  trade-offs  made  follow. 

A.  PROGRAM  MODULES 
1.  Module  MAIN 

The  MAIN  module  consists  of  three  functions  main(),  fginit()  and 
session _name().  Figure  7  gives  the  algorithms,  written  in  pseudo-code,  for  the 


mam  (  ) 


initialize  frame  grabber  by  calling  fginitC); 
blank  out  image  filename; 

call  session_name( )  to  create  sessions  filename  from  current  date; 
'^’splay  por'tp  menu  of  SEMEX  options; 

accept  user  response  and  call  respective  functions; 
return  to  display  popup  menu  again; 
update  sessions  file  with  elapsed  time; 
display  sign~off  message; 


fginit( ) 
{ 


set  hardware  definition; 

set  frame  dimensions; 

turn  frame  grabber  on; 

initialize  registers  and  LUTs; 

select  camera  input; 

clear  frame  memory; 

select  and  display  frame  memory; 

select  input  and  output  LUTs; 

return  to  main(); 


session  name( ) 

{ 

call  dos^getdate ( )  to  get  current  date; 
call  dos_gettime( )  to  get  current  time; 
convert  month  and  day  to  filename  string; 
append  file  extension  ’*.ses"  to  string; 
open  session  file  using  this  string; 

record  current  date  and  time; 
close  session  file; 
return  to  main(); 

} 


'igure  7. 


Pseudo-codes  for  SEMEX  main  program  main()  (top),  frame 
grabber  initialization  j^nit()  (bottom  left),  and  sessions  file 
naming  function  session  name ()  (bottom  right). 


functions  in  this  module.  All  C  programs  must  begin  execution  with  the  function 
main().  It  ties  together  all  the  other  modules  and  functions  in  a  program,  and  this 
is  no  different  for  SEMEX.  In  addition,  it  initializes  all  the  global  variables  to  their 
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default  values.  These  global  variables  are  used  by  the  various  program  modules  for 
range  checking  and  for  customizing  the  SEMEX  program  to  suit  user  needs. 

The  function  jginit()  initializes  the  frame  grabber  by  loading  the  correct 
addresses  and  configuration  data.  Once  done,  the  frame  memory  is  cleared  and  the 
input  and  output  LUTs  selected  to  prepare  the  frame  grabber  to  receive  digitized 
images  captured  with  the  vidicon  camera.  Function  session jiame()  handles  the 
formation  of  the  sessions  filename  using  the  current  month  and  day  from  the  DOS 
system  (obtained  by  calling  dos_getdate()  function),  and  appends  a  .ses  file  extension 
to  it.  However,  the  user  can  specify  a  different  filename  when  inside  the  module 
SETUP.  The  sessions  file  records  all  the  session  activities  for  that  particular  day, 
regardless  of  the  number  of  sessions.  Figure  8  shows  a  typical  sessions  file. 


Opening  Session  on  26  Feb  1991  at  18:09. 

CLIP:  Image  from  Filename:  sem02  .log 

Auto  Threshold:  187  User  Threshold;  187 

TAG:  273  features  tagged  In  14.2  seconds 
SIZE:  Vertical  scale  used:  8.400000  plxels/unlt  length 
Min  Length  spec:  1  Max  Length  spec:  100 

Sized  273  Features  Mlthln  specifications 
Sizing  took  10.4  seconds 

Conversion  constants:  Cx-0. 141691  Cy”0. 119048  Ca“0, 016868 

AREA_M  X-chord  Y-chord 

Max  5.803  12.044  4.167 

Min  0.017  0.142  0.119 

ANALYZE:  Merging  data  files 

Extracting  data  from  SD102.DAT 
274  extracted.  Running  Total  is  273 

Total  volume  of  minuscule  particles  Is  3.726466  or  S.2SZ 
Printing  results  to  Feb26.hls 
Printing  MAT-flle  ssm02.mat 
SEMEX  was  on  for  2.4  minutes. 


Figure  8.  A  typical  session  recorded  in  the  sessions  file. 
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2.  Module  ACQUIRE 


The  ACQUIRE  module  is  actually  a  single  function  acquire()  whose 
pseudo-code  is  shown  in  Figure  9.  It  accepts  one  of  two  sources  of  image  input.  The 
first  makes  use  of  a  previously  digitized  image  stored  on  disk.  The  second  allows  for 


acquire ( ) 

{ 

open  dialog  box; 
if  disk  image  desired 

call  SEMIO  function  getimO; 

else 

display  live  video; 
if  default  selected 
use  default 

else 

interac*  ✓  ■  adjust  gain; 

if  default  sc  acted 

use  default  offset; 

else 

.nteractively  adjust  offset; 
snap  single  video  frame; 
transfer  synchronization  to  frame  grabber; 
d<».alect  camera  to  prevent  interference; 
rrop  left  and  right  margins; 

complement  digitized  image  if  desired  by  calling  ITEX  PCplus  function  complementO ; 
if  image  is  to  be  saved 

append  gain,  offset  and  margins  to  comments; 
call  SEMIO  function  putim(); 
update  sessions  file; 
close  dialog  box; 
return  to  cnain(); 

2 _ 

Figure  9.  Pseudo-code  for  image  acquisition  function  acquire(). 


acquisition  of  a  live  image  from  the  vidicon  camera.  If  SETUP  has  not  been  run, 
acquireO  will  allow  the  gain  and  offset  of  the  camera  input  to  be  interactively 
adjusted  to  obtain  a  high  contrast  image.  After  positioning  the  object  image  in  the 
field  of  view  of  the  camera,  a  single  frame  can  be  acquired  (a  process  called 
snapping  a  frame  by  Imaging  Technology).  The  camera  input  is  then  disconnected 
by  software  to  reduce  the  jitter  (caused  by  synchronization  conflicts  between  the 
vidicon  camera  and  the  frame  grabber)  which  can  corrupt  the  digitized  image.  The 


acquired  image  is  512  pixels  wide  by  480  pixels  high  with  each  pixel  represented  by 
8  bits,  thus  allowing  for  256  shades  of  gray. 

Once  acquired,  the  digitized  image  can  have  its  left  and  right  margins 
cropped.  This  will  eliminate  any  edge  effects  and  textual  information  that  could 
interfere  with  the  extraction  of  particle  data.  Next,  the  image  can  be  complemented 
to  produce  a  final  image  where  particle  features  are  dark  and  the  background  light. 
This  is  carried  out  by  an  ITEX  PCplus  function  complement ()  which  performs  a  one’s 
complement  (one  bits  become  zeros  and  vice  versa)  on  every  pixel  in  the  image. 

Finally,  the  image  can  be  saved  to  disk  or  left  in  the  frame  grabber's 
memory  (frame  memory)  for  further  processing.  If  the  image  save  option  is 
exercised,  program  control  is  transferred  to  the  putim()  function  in  module  SEMIO 
where  a  filename  is  requested.  An  extension  oi.img  is  automatically  appended.  The 
user  will  be  asked  to  supply  a  line  of  comments  which  will  be  stored  in  the  image 
header,  together  with  information  on  the  gain  and  offset  of  the  camera  input, 
margins  set  and  the  vertical  scaling  factor.  This  information  will  be  displayed 
together  with  the  digitized  image  whenever  it  is  recalled  by  the  other  modules.  The 
stored  margins  are  used  by  the  modules  to  define  the  area  of  interest  in  the  digitized 
image.  This  can  result  in  an  improvement  in  performance,  as  the  whole  frame  need 
not  be  processed.  The  vertical  scaling  factor  provides  the  SIZE  module  with  the 
conversion  factor  between  pixels  and  some  unit  of  measure  (e.g.,  microns). 
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3.  Module  CLIP 


The  CLIP  module  consists  of  four  functions  namely,  clipmain(),  clipO, 
autoclipO  findthdO .  Their  pseudo-codes  are  shown  in  Figure  10. 


clipmainC ) 

{ 

open  dialog  box; 
open  session  file; 
if  disk  image  desired 

call  SEMIO  function  getimO  : 

else 

use  image  in  frame  memory; 
call  autoclipC)  to  threshold  the  image; 
calL  clip()  to  modify  the  threshold; 
update  sessions  file; 
close  sessions  file; 

display  options  and  get  user  response; 
if  image  to  be  restored 
linearize  output  LUT; 

else 

map  output  LUT  into  frame  memory; 
if  image  to  be  saved  to  disk 

call  SEMIO  function  putim(); 
close  dialog  box; 
return  to  main( ) ; 

} 

findthdC ) 

{ 

within  each  region 

determine  pixel  value; 

If  pixel  value  Is  more  than  mid-gray 
compare  It  to  existing  threshold, 
take  the  minimum  of  the  two  and 
assign  It  as  the  new  threshold; 
return  to  autoclip(); 

) _ 

Figure  10.  Pseudo-codes  for  clipmain(),  interactive  clipping  clip()  (top 
right),  automatic  clipping  autoclipO  (center  right),  and 
background  threshold  determination  findthd(). 


clip( ) 

{ 

start  repetition 

display  clipped  image; 
interactively  get  threshold; 
end  repetition  if  user  satisfied; 
supply  threshold  to  calling  program; 


autocIipC ) 

{ 

define  regions  to  be  sampled; 

assume  threshold  is  peeik  white  initially; 

for  each  region 

call  findthdC)  to  find  new  threshold; 
use  the  minimum  threshold  for  all  regions; 
return  to  clipmainC); 


Function  clipmainQ  is  called  by  main()  and  uses  the  other  functions  in  this 
module  to  convert  the  digitized  gray  scale  image  to  a  binary  two- tone  image  by  a 
process  called  thresholding.  The  gray  scale  image  can  be  retrieved  from  the  disk,  or 
the  existing  image  in  the  frame  memory,  acquired  previously,  can  be  used.  The 
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IEEE  Standard  Glossary  of  Image  Processing  and  Pattern  Recognition  Terminology 

(IEEE  Std.  610.4-1990)  defines  thresholding  as 

The  process  of  producing  a  binary  image  from  a  gray  scale  image  by  assigning 
each  output  pixel  the  value  1  if  its  corresponding  input  pixel  is  at  or  above  a 
specified  gray  level  (the  threshold)  and  the  value  0  if  the  input  pixel  is  below 
that  threshold. 

In  mathematical  terms,  for  a  threshold  T,  the  process  can  be  represented 


0  P(i,j)  <  T, 
255  p(i, j)  >  T. 


(1) 


where  p(i,  j)  represents  the  gray  scale  value  of  the  pixel  at  column  i  and  row  j.  The 
gray  scale  value  0  represents  peak  black  while  the  value  255  represents  peak  white. 

The  purpose  of  thresholding  is  thus  to  produce  a  binary  image  where  the 
features  are  black  against  a  white  background.  This  is  critical  to  the  subsequent 
stages  of  processing.  To  ease  the  user  workload,  autoclipO  and  findthdO  are  called 
to  automatically  determine  an  estimate  of  the  optimal  threshold  level.  The  algorithm 
assumes  that  the  particle-to-background  contrast  is  good  and  that  the  particles  are 
dark  against  a  light  background.  Given  these  two  conditions,  the  algorithm  examines 
six  small  regions  around  the  edges  of  the  image  and  one  more  in  the  center  to 
determine  the  background  gray  scale  levels.  The  location  and  size  of  the  regions 
have  been  determined  empirically,  and  is  based  on  the  location  of  the  lighting.  Pbcels 
w'ith  gray  scale  levels  lower  than  mid-gray  (pbcel  value  of  128)  will  be  skipped  over 
as  they  are  assumed  to  be  part  of  a  particle  and  not  the  background.  The  darkest 
of  the  background  levels  obtained,  corresponding  to  the  lowest  gray  scale  value  for 


all  the  regions,  is  used  as  the  threshold.  Sampling  over  several  regions  helps  to 
account  for  any  non-uniformity  in  illumination.  This  algorithm  tries  to  ensure  that 
background  pixels  do  not  accidentally  become  converted  to  particle  pixels.  While  the 
algorithm  is  not  robust,  it  was  found  to  work  satisfactorily  for  images  satisfying  the 
above  two  conditions.  The  processing  time  required  to  determine  the  automatic 
threshold  level  is  less  than  one  second.  Once  the  threshold  level  is  determined,  a 
ITEX  PCplus  library  function,  threshold(),  is  called  to  perform  the  actual  thresholding 
process. 

As  the  automatic  thresholding  algorithm  assumes  a  priori  knowledge  of  the 
image,  manual  intervention  is  allowed  using  the  dip()  function.  This  allows  the 
current  threshold  to  be  interactively  changed  to  fine  tune  the  image.  Changes  made 
to  the  image  are  constantly  updated  to  the  video  monitor. 

The  resulting  two-tone  image  can  either  be  saved  to  a  disk  file  for  later 
processing,  carried  forward  to  the  next  stage  of  processing,  or  reverted  to  its  original 
gray  scale  form  to  start  over.  Clipped  files  have  a  default  file  extension  of  .iml. 
Typically,  the  image  is  not  saved  but  is  kept  in  frame  memory.  A  SETUP  option 
allows  the  subsequent  stages  to  be  activated  automatically  to  reduce  user  intervention 
and  increase  throughput. 

4.  Module  TAG 

The  TAG  module  consists  of  the  seven  functions  shown  in  Figure  6  earlier. 
Collectively,  these  functions  determine  whether  a  particle  is  made  up  of  an  isolated 
pbcel  or  a  group  of  adjacent  pbcels.  The  general  term  for  this  process  of  screening 
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the  image  for  objects  (features  or  particles)  is  called  image  or  object  segmentation. 

The  IEEE  Std.  610.4-1990  defines  image  segmentation  as 

The  process  of  dividing  an  image  into  regions  for  the  purpose  of  object 
extraction. 


tagmainC  ) 

{ 

open  a  dialog  box; 

tag(  ) 

{ 

determine  maximum  feature  size  limits; 

open  sessions  file; 

Start  timer; 

if  disk  image  desired 

tag  the  first  row  of  pixels  by  calling  tagrow0(); 

call  SEMIO  function  getim(); 

tag  subsequent  rows  by  calling  tagrowsC); 

else 

determine  total  features  tagged; 

use  image  in  frame  memory; 

check  search  wlnuow  size  by  calling  checkmerge( ) ; 

tag  image  by  calling  tag(); 

check  for  joined  features  by  calling  tagmergeC); 

close  sessions  file; 

display  final  feature  count; 

if  tagged  image  to  be  saved 

display  time  elapsed; 

call  SEMIO  function  putim(); 

update  sessions  file; 

close  dialog  box; 

update  frame  memory  to  make  process  permanent; 

return  to  main(); 

) 

return  to  tagmainC); 

> 

Figure  11.  Pseudo-code  for  TAG  algorithm.  Left  column  shows  tagmain() 
while  right  column  shows  tag(). 


Image  segmentation  or  tagging,  as  it  is  subsequently  referred  to  in  this 
thesis,  is  performed  in  two  stages.  Figure  11  shows  tagmainQ  calling  tag()  to  scan  the 
clipped  image  previously  stored  in  the  frame  memory  (or  retrieved  from  a  user- 
specified  Ami  disk  file).  Each  non-background  pixel  is  assigned  with  a  feature 
identification  number  (fid).  Isolated  pixels  are  assigned  unique  numbers  while 
adjacent  pbcels  share  the  same  number.  Essentially,  the  fid  number  identifies  pixels 
belonging  to  a  single  feature  or  particle. 

The  actual  tagging  is  done  by  two  functions  tagrow0()  and  tagrows()  which 
operate  on  the  first  row  and  the  subsequent  rows  in  the  frame,  respectively. 
Figure  12  shows  the  pseudo-code  for  the  two  functions.  Essentially,  the  functions 
scan  a  row  from  left  to  right,  skipping  white  pixels  which  are  assumed  to  be  part  of 
the  background.  When  a  black  pixel  is  detected,  the  pbcel  above  is  examined.  If  that 


tagrowO ( ) 

{ 

for  each  pixel  in  the  first  row  of  the  image 

skip  to  next  pixel  if  present  pixel  is  background; 
if  left  pixel  occupied 
adopt  its  fid  value; 
else  must  be  new  feature 
assign  new  fid  value; 
return  to  tag( ) ; 

} 

tagrows( ) 

} 

for  each  row  of  pixels  in  the  image 
for  each  pixel  in  the  row 

skip  to  next  pixel  if  present  pixel  is  background; 
if  left  or  above  pixel  occupied 
adopt  its  fid  value; 
else  must  be  new  feature 
assign  new  fid  value; 
if  subsequent  adjacent  pixels  connected 
assign  same  fid  value  to  these; 
return  to  tag ( ) ; 

) _ 

Figure  12.  Pseudo-codes  for  tagrowO()  and  tagrows()  algorithms  used  for 
differentiating  features  from  background  in  the  first  and 
subsequent  rows,  respectively. 

pixel  is  not  white,  it  already  would  have  been  assigned  an  fid  value  and  the  current 
black  pixel  is  rewritten  with  the  fid  of  the  pixel  above.  In  addition,  the  preceding 
pixel  in  the  row  is  also  checked  and,  if  it  has  been  assigned  an  fid  value,  this  is  also 
changed.  This  effectively  identifies  adjacent  pixels  as  being  part  of  the  same  feature, 
as  long  as  the  features  are  convex  polygons  (that  is,  there  are  no  jagged  edges  caused 
by  clusters  of  particles). 

Because  only  8  bits  are  allowed  for  storing  a  gray  scale  value,  this  allows 
for  only  256  values.  Allocating  value  0  to  peak  black  and  value  255  to  peak  white 
leaves  only  254  values.  This  means  that  only  254  particles  can  be  uniquely  identified. 
To  overcome  this  limitation,  the  frame  area  is  windowed  into  one  or  more 
rectangular  regions.  A  simple  function  checkmerge()  (see  Figure  13)  uses  the  initial 
number  of  features  counted  by  tagrowO()  and  tagrowsQ  to  determine  the  dimensions 
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checkmergeC ) 

{ 

determine  safe  feature  size  within  a  group; 
if  feature  size  is  larger  than  safe  size 
warn  user; 

prevent  larger  features  from  being  tagged; 
return  to  tag(); 


tagmerge( ) 

{ 

for  each  row  in  the  image 

assign  row  search  limits; 

for  each  pixel  column  in  the  image 

get  pixel  value  of  current  pixel; 
get  pixel  value  of  pixel  above; 
if  either  is  background  or 
if  they  are  part  of  the  same  feature 

no  action  required,  skip  on  to  next  column; 

else 

adjoining  pixels  have  different  fids  and  need  to  be  merged; 
assign  column  search  limits; 
for  each  row  within  the  search  limits 

for  each  pixel  column  within  the  search  limits 
if  pixel  is  part  of  the  current  pixel 
re-assign  the  value  above  to  it; 

return  to  tag ( ) ; 

} 


Figure  13.  Pseudo-codes  for  checkmerge()  and  tagmerge()  used  for  checking 

the  number  of  features  in  a  merging  window  and  for  carrying  out 
the  merging,  respectively. 


of  this  sizing  window.  The  formula  used  is  given  by 


SAFES  I ZE  =  int 


int(- )  .  2 


where  SAPESIZE  is  the  allowable  size  of  the  feature.  The  value  480  represents  the 
number  of  rows  in  the  frame  and  255  is  the  number  of  unique  fid  values  available 
plus  one.  The  pseudo-function  int()  takes  the  integer  portion  of  the  quotient.  For 
example,  if  the  feature  count  is  254,  the  denominator  will  yield  2  and  SAFESIZE 
would  evaluate  to  240  which  is  half  the  frame  height.  The  sizing  window  is  twice  this 
value  which  implies  that  the  whole  frame  is  used.  Features  having  a  vertical  length 
greater  than  SAFESIZE  will  be  partitioned  into  two.  If  this  happens,  the  program 
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will  warn  the  user  to  rerun  the  TAG  module  after  specifying  that  these  larger 
features  be  excluded.  Alternatively,  the  user  may  attempt  to  use  a  lower  threshold 
level  to  reduce  the  number  of  features  if  the  image  is  suspected  to  be  noisy  or  the 
background  is  heavily  textured.  For  any  image,  the  maximum  feature  size  should  not 
be  greater  than  a  quarter  of  the  image  frame  area  (i.e.,  256  x  240  pixels).  Features 
within  different  regions  may  have  the  same  fid  number  because,  in  addition,  they  are 
assigned  a  different  group  identification  (gid)  number  to  distinguish  between  them. 

After  the  first  pass  described  in  the  preceding  paragraphs,  another  pass  is 
taken  through  the  whole  image  to  merge  joined  features.  This  is  carried  out  by 
tagmergeO  and  is  necessary  because  the  first  pass  assumes  that  all  features  are  convex 
polygons.  However,  if  some  of  the  particles  are  overlapping  or  have  irregular  cross- 
sections,  then  they  would  be  assigned  different  fid  numbers  although  they  are  joined. 
Consequently,  these  non-convex  polygons  have  to  be  merged  together  and  assigned 
a  common  fid  number.  The  number  of  features  merged  will  be  highlighted  to  the 
user  together  with  the  number  of  features  identified  or  tagged.  The  latter  can  be 
used  for  verification  of  the  TAG  algorithm  with  the  SIZE  module  described  in  the 
next  sub-section.  Both  should  yield  the  same  feature  count. 

A  limitation  of  the  present  algorithm  is  that  border  regions  are  ignored. 
This  means  that  particles  truncated  by  the  edge  of  the  image  are  treated  as  if  they 
were  complete  particles.  This  may  distort  the  actual  distribution  of  particle  sizes. 
This  generally  affects  a  small  number  of  particles  and  is  not  expected  to  give  rise  to 
large  errors  in  the  result.  However,  should  this  error  be  deemed  significant,  the 
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usual  practice  is  to  define  an  area  of  interest  somewhat  smaller  than  the  image  such 
that  a  border  exists.  The  border  must  be  as  wide  as  the  largest  particle.  Particles 
lying  on  this  border,  and  not  truncated  by  the  edge  of  the  frame,  will  be  tagged  while 
those  outside  the  border  will  be  reset  to  the  background  color.  In  this  way  during 
SIZE,  truncated  particles  will  not  be  sized  and  hence  do  not  affect  the  distribution. 
While  this  would  yield  more  accurate  results  in  terms  of  classifying  particles,  the 
smaller  area  of  interest  would  yield  a  smaller  sample  population  and  more  images 
would  have  to  be  used  to  compensate  for  this.  In  addition,  it  would  not  be  practical 
to  incorporate  a  border  when  particles  could  be  as  large  as  a  quarter  of  the  image. 

The  tagged  image  can  be  saved  to  disk.  It  will  have  a  default  file 
extension  of  .im2. 

5.  Module  SIZE 

The  SIZE  module  consists  of  four  major  functions  namely  sizemain(), 
size(),  pixelsizeO,  and  outdata().  Collectively,  they  perform  the  function  of 
determining  the  area  and  physical  dimensions  of  the  particles.  The  main  function 
sizemainO  allows  for  a  stored  tagged  image  to  be  retrieved,  calls  size()  to  coordinate 
the  sizing  process,  and,  finally,  calls  outdataQ  to  tabulate  and  save  the  results.  The 
pseudo-codes  for  sizemainO  and  sizeQ  are  shown  in  Figure  14. 

The  function  sizeQ  dynamically  allocates  storage  arrays  for  particle  areas, 
horizontal  particle  lengths  (x-chords),  and  vertical  particle  lengths  (y-chords).  These 
arrays  are  indexed  by  the  fid  value  of  the  feature  whose  dimensions  are  being  stored. 
The  function  also  keeps  track  of  the  processing  time  taken  to  size  the  image.  Actual 
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sizemainC ) 

{ 

open  a  dialog  box; 
open  sessions  file; 
if  disk  image  desired 

call  SEMIO  function  getimC); 

else 

use  image  in  frame  memory; 
size  image  by  calling  sizeC); 
if  results  are  to  be  saved 
call  outdata( ) ; 
close  sessions  file; 
if  sized  image  to  be  saved 

call  SEMIO  function  putimC); 
close  dialog  box; 
return  to  mainC); 

} 


sizeC ) 

{ 

datennine  scale  factor; 
determine  feature  size  limits; 
check  for  sufficient  memory; 
start  timer; 

size  the  image  with  pixelsizeC); 
display  time  elapsed; 
return  to  sizemainC); 

) 


Figure  14.  Pseudo-codes  for  SIZE  module  functions  sizemain()  (left)  and 

sizeO  (right). 


sizing  begins  when  size()  calls  function  pixelsizeQ  to  carry  out  the  algorithm  given  in 
Figure  15. 


Starting  with  the  top  left  corner  of  the  image,  each  row  of  pixels  is  scanned 
for  the  fid  numbers  previously  assigned  by  tag().  Three  registers  are  used  for 
tracking  the  current  feature  area,  feature  x-chord,  and  y-chord.  These  are  initialized 
to  zero  whenever  a  feature  is  first  found.  When  pixels  are  found  with  an  fid  value 
corresponding  to  the  current  feature  being  sized,  these  pixels  are  reset  to  peak  black 
to  prevent  them  from  being  recounted.  At  the  same  time,  the  area  and  chord 
registers  are  updated.  When  the  end  of  a  feature  is  detected  (no  subsequent  rows 
having  the  same  fid  value  as  the  current  feature  being  sized),  these  registers  are 
stored  into  the  respective  storage  arrays  for  later  retrieval  by  outdata().  Statistics  like 
the  largest  and  smallest  features  are  also  determined,  together  with  any  features 
being  rejected  for  failing  to  satisfy  the  size  limits  specified  during  setup.  These  size 
restrictions  can  be  used  to  filter  out  background  noise  or  undesirably  large  features. 


32 


pixelsize( ) 

{ 

for  each  row  in  the  image 

assign  row  search  limits; 

for  each  pixel  col’imn  in  the  image 

get  pixel  value  of  current  pixel; 

if  pixel  value  is  backgrouiid  or  has  already  been  sized 
skip  on  to  next  column; 

else 

pixel  is  part  of  a  feature  yet  to  be  sized; 
assign  column  search  limits; 
for  each  row  within  the  search  limits 

for  each  pixel  column  within  the  search  limits 
if  pixel  IS  part  of  the  current  feature 
increment  feature  area; 
increment  horizontal  feature  length; 
tag  the  pixel  as  sized; 
if  horizontal  feature  length  is  zero 
end  of  feature  is  reached; 
gc  Size  next  feature. 

else 

update  maximum  feature  length; 
leset  horizontal  feature  length; 
increment  vertical  feature  length; 
save  vertical  feature  length; 
save  feature  area; 

reset  vertical  feature  length  and  area; 
determine  min  and  max  feature  dimensions  sized  so  far; 
determine  smallest  and  largest  feature  sized  so  far; 
check  if  any  size  limits  exceeded; 

display  any  rejects  together  with  number  of  features  sized, 
update  sessions  file; 
return  to  sizemain(); 

} _ 

Figure  15.  Pseudo-code  for  function  pixelsize()  which  scans  each  pixel  in  the 
image  and  identifies  it  as  part  of  a  feature. 

The  above  procedure  takes  place  inside  a  sizing  window  determined  during 

setup  (or  modified  by  check _merge()  as  described  in  the  earlier  sub-section).  The 

window  must  be  as  large  as  the  largest  pixel.  This  sizing  window  is  moved  from  left 

to  right,  top  to  bottom  over  the  whole  frame.  If  the  sizing  window  is  large,  a 

considerable  amount  of  computation  time  is  required  to  scan  the  area  in  the  sizing 

window  for  pixels  belonging  to  a  particular  feature.  A  performance  enhancement  has 

been  incorporated  by  detecting  the  end  of  the  feature  and  aborting  the  search  for 

more  pixels  belonging  to  this  feature.  For  small  features,  this  results  in  a  significant 


improvement  in  performance,  as  is  shown  in  the  next  chapter. 
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Up  to  this  point,  all  processing  has  been  in  terms  of  pixel  dimensions  to 
avoid  floating  point  operations.  For  the  vidicon  camera  used,  a  pbcel  is  not  square 
but  has  an  X:Y  aspect  ratio  of  1.2:1.  To  convert  the  pbcel  dimensions  to  microns 
requires  the  vertical  scale  factor  which  was  determined  during  setup.  The  conversion 
is  done  in  outdata(),  shown  in  Figure  16.  It  uses  the  stored  pbcel  values  of  the  x- 
chords  and  y-chords  and  the  total  pbcel  area  of  each  feature,  and  converts  these  to 
microns  and  square  microns  respectively.  The  results  are  tabulated  on  the  computer 
monitor  and  saved  to  a  .dat  data  file  for  subsequent  analysis. 


out,data(  ) 

{ 

open  a  dialog  box; 
calculate  conversion  factors; 
request  for  data  filename; 
open  data  file; 

display  feature  horizontal  and  vertical  dimensions; 
display  feature  area; 
write  the  same  results  to  data  file; 
close  data  file; 

display  min  and  max  feature  sizes  for  the  whole  image; 
display  smallest  and  largest  feature  area  for  the  whole  image; 
update  sessions  file; 
close  dialog  box; 
return  to  sizumainO; 

2 _ 

Figure  16.  Pseudo-code  for  function  outdata()  which  tabulates  the  feature 

sizes  and  writes  it  to  a  data  file. 


6.  Module  ANALYZE 

Many  methods  exist  for  analyzing  particles  which  are  normally  distributed 
[Ref.  15].  However,  few  exist  for  multi-modal  analysis.  For  this  application, 
the  algorithm  is  designed  to  collect  all  the  data  files  specified  by  the  user,  to  extract 
the  area  data  from  them,  and  then  to  calculate  the  equivalent  diameter  and  volume 
of  a  sphere.  The  end  result  oi  ANALYZE  is  a  histogram  of  the  sample  population. 


These  steps  are  accomplished  by  the  functions  analyze(),  merge_data(), 
extract _data(),  and  histoj’ol().  The  equivalent  spherical  volumes  are  used  because 
a  large  particle  has  a  much  greater  impact  on  the  plume  characteristics  than  many 
small  ones.  Referring  to  Figure  17,  analyze()  opens  a  dialog  box  and  the  sessiotu  file 
and  calls  the  other  three  functions.  The  function  merge_data()  builds  up  a  list  of  data 
filenames  by  prompting  the  user  with  the  name  of  each  data  file  in  the  current 
directory  and  asks  whether  each  should  be  used.  The  function  extract _data()  then 
begins  extracting  the  area  from  each  of  the  data  files.  The  user  can  choose  between 
using  the  calculated  area  (AREA_C)  or  the  measured  area  (AREA_M).  The 
function  histo_yol()  takes  the  areas  and  calculates  the  equivalent  spherical  diameters 
and  volumes.  Although  the  particles  may  be  irregular  in  shape,  the  use  of  equivalent 
spheres  facilitates  the  plotting  of  histograms  against  a  single  size  dimension  (particle 
diameter).  The  function  then  outputs  the  data  into  a  .his  histogram  data  file.  This 
file  can  be  read  out  or  printed  with  any  ASCII  text  editor  program. 

An  option  allows  the  user  to  save  the  same  histogram  data  into  a 
MATLAB-compatible  .mat  file.  This  makes  use  of  a  function  called  savemat() 
provided  by  MATIj^B  and  has  been  locally  modified  for  SEMEX.  The  histogram 
data  can  be  plotted  using  a  MATLAB  script  file  called  SEM.M.  This  file  reads  in  the 
.mat  file  and  plots  a  histogram  of  percent  of  total  volume  against  a  logarithmic  scale 
of  particle  diameter.  The  listing  for  SEM.M  is  found  in  Appendix  B.  To  enable 
comparison  with  the  Malvern  MasterSizer  [Ref.  8],  the  same  upper  and  lower  limits 
for  each  bin  is  used.  The  only  difference  is  that  SEMEX  has  38  bins  as  against  only 
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analyze ( ) 

{ 

open  a  dialog  box; 
open  the  sessions  file; 

call  inerge_data( }  to  merge  data  from  different  data  files; 
call  histo_vol()  to  calculate  volume  and  histogram  the  result; 
close  session  file; 
close  dialog  box; 
return  to  main( ) ; 


merge_data( ) 

{ 

use  _dos_findf irst( )  to  get  first  data  file  and  its  creation  date; 
display  file  and  date  created  and  ask  user  whether  to  include  this  file; 
if  user  response  is  positive 

update  session  file  with  datafile  name; 
allocate  memory  for  the  list; 
add  filename  to  list; 

find  the  rest  of  the  data  files  using  _dos_f indnext( ) ; 
repeat  the  ibove  steps  until  no  more  data  files  found; 
allocate  memory  for  data  array; 

call  extract  data()  to  extract  area  from  data  file; 


extract_data ( ) 

{ 

for  each  of  the  selected  data  files  in  the  list 
open  the  data  file; 

read  area  into  data  array; 
repeat  until  end  of  file; 
close  data  file; 
erase  the  list; 


histo_vol() 

{ 

determine  bin  limits: 

allocate  memory  for  volume  and  diameter  arrays; 
for  each  particle  In  the  data  array 

calculate  the  equivalent  diameter  aasumlng  a  circle,  given  area; 
calculate  the  equivalent  volume  assuming  a  sphere,  given  area; 
accumulate  total  volume; 

sieve  the  volumes  and  collate  into  the  correct  bins; 
update  sessions  file  with  particles  outside  the  defined  sizes; 
print  out  results  to  histogram  file; 

if  desired,  a  MATLAB  .mat  file  can  be  created  for  SEM.M  to  plot  the  histogram; 
de-.,llocate  memory  thus  erasing  all  the  arrays; 

) 


Figure  17.  Pseudo-codes  for  the  ANALYZE  module  showing,  from  top  to 
bottom,  analyzeO,  merge_dcUa(),  extract _data(),  and  histo^ol(). 


31  for  the  Malvern  MasterSizer,  The  latter  can  only  size  down  to  0.5  ^im  while 
SEMEX  has  a  resolution  down  to  0.125  /xm.  SEM.M  allows  the  results  from  the 
Malvern  MasterSizer  to  be  simultaneously  plotted  for  comparison.  These  plots  can 
be  seen  in  the  next  chapter. 
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7.  Module  SETUP 


The  module  SETUP  consists  of  two  functions  check _equipment()  and 
setupO.  The  first  helps  the  user  to  set  up  the  camera  and  light  fixtures  (refer  to 
Figure  18),  while  the  second  is  used  to  customize  the  SEMEX  program. 


check_equipment( ) 

f 

open  dialog  box; 

if  changes  required  to  equipment  setup 
acquire  live  video; 

interactively  set  video  input  gain; 

interactively  set  offset; 

digitize  a  single  video  frame; 

synchronize  to  frame  grabber  for  stability; 

deselect  camera  to  prevent  interference; 

call  measure_line( )  to  measure  5  micron  reference  line; 

repeat  measurements  as  desired; 

complement  image  to  get  dark  features  on  light  background; 
update  frame  memory  to  record  changes; 

call  ITEX  PCplus  threshold()  to  threshold  image  at  maximum  level; 
call  clipC)  to  interactively  threshold  the  image; 
repeat  whole  process  if  desired; 
open  sessions  file; 
update  setup  parameters; 
close  sessions  file; 
close  dialog  box; 
return  to  setup( ) ; 


Figure  18.  Pseudo-code  for  the  function  check _equipment()  which  aids  in 

the  physical  setup  of  the  camera  and  the  lights. 

To  set  up  the  camera  and  light  table,  the  function  check _equipment()  turns 
on  the  frame  grabber  and  begins  acquiring  live  video  through  the  camera.  The  user 
can  manually  focus  the  vidicon  camera  and  set  its  aperture.  At  the  same  time,  the 
gain  and  offset  of  the  camera  input  can  be  interactively  set,  and  the  photographic 
image  aligned.  In  order  to  fit  the  4:3  frame  aspect  ratio  of  the  camera,  the  SEM 
photograph  has  to  be  rotated  onto  its  side  such  that  the  textual  information  is  to  the 
right.  Having  done  this,  a  single  frame  of  the  image  is  digitized. 

Once  acquired,  measure JineQ  is  called  to  allow  features  on  the  digitized 
image  to  be  repeatedly  measured  with  the  aid  of  a  graphics  cursor.  The  graphics 


37 


cursor,  drawn  and  erased  by  put_cursor()  and  unput _cursor(),  respectively,  is  moved 
around  on  the  video  monitor  by  using  the  arrow  keys.  The  function  chkkeyO 
translates  these  keystrokes  into  x  and  y  values  which  putjine()  and  unput  Jine()  use 
for  drawing  and  erasing  lines.  The  lines  are  measured  by  calcjine()  and  these 
measured  lengths  are  recorded  in  the  sessions  file.  Since  SEM  images  have  a  5  pm 
reference  line  on  the  image,  measurement  of  this  line  allows  for  size  calibration  of 
the  system.  The  function  measure JineQ  assumes  that  this  reference  line  is  vertical 
and  proceeds  to  calculate  the  vertical  scaling  factor  to  be  used  for  converting  pixels 
to  dimensional  lengths.  Figure  19  shows  the  pseudo-code  for  this  function.  The 
graphics  cursor  and  line  manipulation  functions  are  shown  in  Figure  20. 


tneasure_line( ) 

{ 

display  graphic  cursor  using  put_cursor ( ) ; 
await  pressing  of  cursor  keys; 
remove  graphic  cursor  using  unput_cursor( ) ; 
decode  key  pressed  using  chkkeyO; 
if  valid  cursor  key  pressed 

display  graphic  cursor  at  new  location; 

else 

repeat  above  sequence; 
await  key  pressed  to  get  second  position; 
remove  graphic  cursor  using  unput_cursor( ) ; 
decode  key  using  chkkeyC); 
if  valid  cursor  key  pressed 

put  graphic  cursor  at  new  location  using  put^cursor ( ) ; 
draw  line  to  new  location  using  put_line(}; 
calculate  length  of  line  using  calc_Ilne(); 
if  not  zero  length 

calculate  scaling  for  a  5  micron  reference  line; 
open  sessions  file; 
update  sessions  file; 
remove  line  using  unput_line( ) ; 
remove  graphic  cursor  using  unput^cursorC ) ; 
close  sessions  file; 

else 

go  back  to  wait  for  second  position; 
return  to  check_equipnient( ) ; 

} _ 

Mgure  19.  Pseudo-code  for  the  function  measure  Jine()  used  to  determine 
the  vertical  scaling  factor  of  a  5  Mm  line  in  the  SEM  image. 
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put_cursor ( ) 

{ 

determine  top-  and  left-most  pixels,  given  the  center; 
save  pixel  values  under  the  graphic  cursor; 
if  center  pixel  value  is  greater  than  mid-gray 
draw  black  graphic  cursor; 

else 

draw  white  graphic  cursor; 
return  to  measure  lineC); 


unput_cursor ( ) 

{ 

determine  top-  and  left-most  pixels,  giver  the  center; 
restore  original  pixel  values  thus  erasing  the  cursor; 
return  to  measure_line( ) ; 

} 

put_line ( ) 

{ 

if  center  pixel  value  is  greater  than  mid-gray 
use  black  pixels  to  draw  line; 

else 

use  white  pixels  to  draw  line; 
if  horizontal  line  is  longer  than  vertical 

save  horizontal  pixel  values  under  the  line; 
draw  a  horizontal  line; 

else 

save  vertical  pixel  values  under  the  line; 
draw  a  vertical  line; 
return  to  measure_iine( ) ; 

} 

unput_line ( ) 

{ 

if  horizontal  line  is  longer  than  vertical 

restore  horizontal  pixel  values  under  the  line; 

else 

restore  vertical  pixel  values  under  the  line; 
return  to  measure  lineC); 

) 

chkkey ( ) 

{ 

test  for  valid  cursor  keys; 
if  either  arrow  keys  is  pressed 

increment/decrement  x  or  y  respectively; 
if  Horae.  End,  PgUp  or  PgDn  key  is  pressed 

step  X  or  y  respectively  (step  size  is  10  by  default); 
return  to  measure_line ( ) ; 

) 

calc_line( ) 

{ 

if  horizontal  line  is  longer  than  vertical 

return  length  of  horizontal  line  to  measure_line( ) ; 

else 

return  length  of  vertical  line  to  measure_line( ) ; 

} 


igure  20.  Pseudo-codes  for  functions  put _cursor()  and  unput _cursor() 

which  manipulate  the  graphics  cursor  while  functions  putjine() 
and  unput Jine()  deal  with  lines. 


39 


Next,  the  digitized  image  can  be  complemented  (to  produce  an  image 
where  particles  are  dark  against  a  light  background)  and  clipped.  Clipping  is  carried 
out  within  SETUP  by  calling  clip(),  described  earlier.  This  causes  pixels  with  the 
same  or  lower  values  to  be  displayed  as  black,  thus  allowing  the  user  to  visually 
gauge  the  uniformity  of  the  background.  Figure  21  shows  two  images  with  varying 
uniformity  in  illumination. 


Figure  21.  Samples  of  clipped  images  showing  the  non-uniformity  of  the 

illumination.  Darkened  areas  have  the  same  or  lower  pixel 
values. 

The  left  image  is  poorer  than  the  right  due  to  the  poorer  location  of  the 
lights.  It  is  important  that  the  illumination  be  evenly  distributed  so  that  the 
background  intensities  do  not  differ  significantly  over  the  image.  One  way  of 
ascertaining  this  is  to  use  a  blank  sheet  of  paper  in  place  of  the  SEM  image.  The 
digitized  image  is  then  clipped  with  the  threshold  at  maximum  (threshold  value  255). 
This  should  yield  an  almost  black  image  initially.  Decreasing  the  threshold  wil'  cause 
increasing  portions  of  the  image  to  turn  white.  The  background  should  turn  from 
completely  black  to  completely  white  in  about  50  levels  of  gray.  If  it  takes  more  than 
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this  or  if  the  blacks  appear  blotchy,  the  illumination  is  uneven  and  needs  to  be  re¬ 
adjusted. 

If  the  initial  clipped  image  is  not  almost  completely  black,  it  indicates  that 
the  full  dynamic  range  of  the  contrast  has  not  been  exploited.  The  offset  may  need 
to  be  changed  and  then  this  whole  process  repeated  until  the  results  are  satisfactory. 

The  second  function  setup()  in  the  SETUP  module  allows  the  user  to 
configure  the  SEMEX  system,  thereby  streamlining  the  SEM  extraction  process. 
Figure  22  shows  the  pseudo-code  for  setup().  Various  default  parameters  are 

setup( ) 

{ 

check  camera  and  lighting  by  calling  check_equipment( ) ; 
open  dialog  box; 

display  current  default  settings; 
accept  user  changes; 
display  new  default  settings; 
close  dialog  box; 
return  to  tnainC )  ; 

} 

Figure  22.  Pseudo-code  for  the  function  setupQ  in  the  module  SETUP. 
displayed  and  can  be  modified  to  enhance  the  accuracy  of  the  extraction.  The 
processes  are  automated  to  reduce  user  workload.  Several  flags  can  be  defined 
which  cause  program  flow  to  be  altered,  thus  changing  the  appearance  of  the 
program  and  the  amount  of  user  intervention.  In  addition,  a  sessions  file  can  be 
specified  to  record  session  activities  and  to  store  intermediate  results,  thus  relieving 
the  user  from  the  need  to  write  notes.  A  permanent  record  of  each  session  can  thus 
be  kept.  Figure  23  shows  the  SETUP  dialog  box  with  all  the  default  parameters 
which  the  user  can  alter  to  tailor  the  SEMEX  program. 


SETUP  DEFAULTS 


GAIN  LEVEL 
OFFSET  LEVEL 
LEFT  MARGIN 
RIGHT  MARGIN 
Y- SCALE  FACTOR  ; 
Max  Feature  Size 
Min  Feature  Size 
Max  Feature  Count 


0 

5fr 

0 

5T^ 

1.000 

100 

1 

20M 


Use  Default[Y,N] 
Use  Default[Y,N] 
Use  Default[Y,N] 
Use  Default[Y,N] 
Use  Default[Y,N] 


Use  Defaults [Y,N] ;  Y 
Auto-Allocate  Memory [Y,N 


ALL:  Enable  HELP  screens  [Y,N] 

SEMEX:  CLIP,  TAG  and  SIZE  without  asking[Y,N] 
ACQUIRE:  Complement  Image  without  asking [Y,N] 
CLIP:  Load  RAW  Image  without  asking[Y,N] 

TAG:  Load  CLIPPED  Image  without  asking[Y,N] 
SIZE:  Load  TAGGED  Image  without  asking[Y,N] 
Session  Filename:  Febl9.ses 


Figure  23.  SETUP  dialog  box  showing  default  parameters  which  the  user  can 
change  to  customize  SEMEX. 


8.  Module  SEMIO 

The  SEMIO  module  consists  of  several  globally-used  functions  getim(), 
putimO,  and  chkext(),  which  are  called  by  most  of  the  other  modules.  It  performs 
such  functions  as  reading  a  disk  image  file  into  frame  memory,  writing  out  an  image 
stored  in  frame  memory  to  disk,  and  checking  the  filename  extension.  Image  files 
are  stored  in  a  compressed  format  to  reduce  the  disk  storage  space  required  for  each 
image.  However,  this  has  a  small  penalty  on  the  time  required  to  read  and  write  an 
image  file  (one  or  two  seconds).  Figure  24  shows  the  pseudo-codes  for  the  three 
functions.  The  functions  make  use  of  two  ITEX  PCplus  functions  readim()  and 


saveimO  to  actually  perform  the  image  read  and  save  operations,  respectively. 
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getimC ) 

{ 


call  chgextC)  to  append  default  file  extension  to  filename; 
prompt  user  with  filename; 
get  user  response; 

get  image  and  corments  from  disk  using  ITEX  PCplus  library  function  readimC); 
if  error  detected 

suggest  trying  again  with  new  filename; 
display  image  on  monitor; 
display  comments  in  dialog  box; 

extract  margins  and  scaling  factor  from  the  comment  line; 
return  to  calling  program; 


putim( ) 

{ 


call  chgextC)  to  append  default  file  extension  to  filename; 

prompt  user  with  filename; 

get  user  response  and  corrments; 

append  gain, offset,  margin  and  scaling  factor  to  comment  string: 
save  image  and  comments  using  ITEX  PCplus  library  function  saveimC ) ; 
if  error  detected 

suggest  trying  again  with  new  filename; 
return  to  calling  programC); 


chgextC ) 

{ 

determine  the  start  of  the  file  extension; 
discard  old  file  extension; 
append  default  file  extension; 
return  to  calling  program; 


Figure  24. 


Pseudo-codes  for  the  SEMIO  module.  Functions  getimi)  and 


putimO  handle  image  transfers  to  and  from  disk  while  chgext() 
is  used  to  set  the  default  file  extension. 

The  functions  also  handle  the  insertion  of  image  parameters  into  the  image 
header.  Information  like  the  gain,  offset,  margins  and  the  scaling  factor  used  in 
creating  the  digitized  image  are  stored,  together  with  any  comments  the  user  may 
wish  to  include.  These  parameter  will  be  automatically  retrieved  when  the  image  is 
brought  in  from  disk.  This  ensures  that  no  useful  data  is  lost  and  it  also  reduces  the 
setup  time.  Mundane  tasks  such  as  checking  the  existence  of  a  filename  and 
availability  of  disk  storage  space  are  also  carried  out  by  the  functions  in  SEMIO. 
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V.  RUNNING  SEMEX 


A.  SEMEX  SETUP  PROCEDURE 

SEM  photographic  images  first  have  to  be  digitized  and  stored  in  the  frame 
grabber’s  memory  before  any  processing  or  extraction  of  information  can  be  started. 
The  camera  and  lighting  setup  is  critical  for  obtaining  a  good  digitized  image.  Using 
a  28  mm  focal-length  lens,  the  vidicon  camera  has  to  be  mounted  at  a  height  of 
approximately  13  inches  from  the  SEM  photograph  on  the  light  table.  A  transparent 
glass  plate  is  placed  over  the  photograph  to  keep  it  flat.  After  ensuring  that  the 
video  cables  have  been  properly  routed,  the  IBM  AT  is  powered  up  and  SEMEX 
started  by  typing  SEMEX  at  the  DOS  prompt.  A  windowed  menu  like  the  one 
shown  in  Figure  25  will  appear.  Pressing  a  number  will  cause  a  corresponding 
selection  to  be  highlighted.  Alternatively,  the  arrow  keys  can  be  used  to  make  a 
selection. 

Once  SEMEX  has  been  started  up,  the  first  thing  to  do  is  to  run  SETUP  by 
pressing  [Enter]  at  the  main  menu  prompt  1.  Setup  SEMEX.  The  setup  procedure 
consists  of  five  steps: 

1.  Initial  alignment  and  focusing. 

2.  Setting  camera  input  gain  and  offset. 

3.  Determining  the  system  scaling  factor. 

4.  Adjusting  the  illumination. 
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SEM 

SEMEX 

Extraction  Program 

Naval 

Postgraduate  School 

1. 

Setup  SEMEX 

2  . 

Acquire  Image 

3  . 

Clip  Image 

4  . 

Tag  Features 

5. 

Size  Features 

6. 

Analyze  Features 

Use  cursor  keys  to  select 

Press 

[Enter]  to  execute 

Press 

[Esc]  to  quit 

Figure  25.  SEMEX  main  menu  showing  the  six  options. 


5.  Verifying  and  changing  system  defaults. 

The  detailed  procedures  are  given  in  the  following  sections. 

1.  Initial  Alignment  and  Focusing 

Running  SETUP  causes  another  window  to  appear  over  the  main  SEMEX 
window.  A  prompt  will  appear  asking  whether  the  user  wishes  to  set  up  the  camera 
and  lighting.  Pressing  any  key  other  than  *N’  or  ‘n’  will  select  the  default  answer 
of  ‘Yes’  and  this  turns  on  the  camera.  A  digitized  image  of  the  SEM  photograph 
can  now  be  seen  on  the  video  monitor.  Rotate  the  photograph  counter-clockwise 
such  that  the  aspect  of  the  photograph  is  the  same  as  the  video  monitor,  with  the 
textual  information  on  the  right.  Adjust  the  height  and  focus  of  the  camera  so  that 
the  maximum  area  of  the  photograph  can  be  seen  without  borders.  The  5Mm 
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reference  line  and  part  of  the  textual  information  on  the  photograph  should  also  be 
visible  on  the  right  edge  of  the  video  monitor.  Figure  26  shows  the  orientation  of 
a  typical  image. 


Figure  26.  Digitized  SEM  image  showing  the  orientation  of  the 


reference  line  and  other  textual  information. 

Ensure  that  the  image  is  in  focus.  Once  this  is  done  for  one  photograph, 
the  height  and  focus  of  the  camera  need  not  be  adjusted  again  unless  the  setup  is 
disturbed  or  dismantled.  The  photograph,  the  lens,  and  the  glass  plate  should  be 
dusted  to  prevent  dust  particles  from  being  digitized. 

2.  Setting  Camera  Input  Gain  and  Offset 

The  program  will  next  ask  the  user  to  adjust  the  gain  of  the  camera  input; 
initially,  the  gain  is  set  at  maximum  (value  0).  The  user  can  interactively  alter  this 
gain  setting  or,  alternatively,  adjust  the  aperture  of  the  lens.  A  setting  of  gain 
value  0  at  f/4  was  found  to  be  satisfactory.  Pressing  [Enter]  moves  the  program  on 
to  adjust  the  offset.  Again,  the  user  can  interactively  change  the  offset  or  it  can  be 


left  at  the  default  of  60.  In  general,  this  value  should  give  the  image  on  the  video 
monitor  good  contrast. 

3.  Determining  the  System  Scaling  Factor 

The  vertical  scaling  factor  can  be  determined  by  measuring  the  length  of 
the  5  Mm  line  located  at  the  top  right  edge  of  the  video  monitor  with  the  graphics 
cursor  (a  small  cross-hair)  located  nearby.  The  cursor  can  be  moved  using  the  arrow 
keys  for  single  pixel  movements  in  either  of  four  directions.  For  faster  movement 
of  the  cursor,  the  [Home],  [End],  [PgUp],  and  [PgDn]  keys  can  be  used  to  move  left, 
right,  up,  and  down  respectively,  in  steps  of  ten  pixels.  Pressing  [Enter],  when  the 
cursor  has  arrived  at  one  end  of  the  5  /xm  line,  acquires  the  point.  Next,  move  the 
cursor  to  the  other  end  of  the  line  and  press  [Enter].  This  will  cause  the  graphics 
line  to  disappear  and  the  measured  length  in  pixels  will  be  displayed  on  the  computer 
monitor,  together  with  the  vertical  scaling  factor  (see  Figure  27).  If  desired,  other 
features  can  be  measured.  However,  it  should  be  noted  that  the  scale  factor  from 
the  latest  measurement  will  be  stored.  This  factor  can  also  be  changed  in  the  SETUP 
screen. 

4.  Adjusting  the  Illumination 

The  placement  of  the  lamps  is  crucial  for  obtaining  even  illumination. 
After  visually  determining  that  there  is  no  glare  or  reflection  from  the  lamps  or 
overhead  lighting,  an  image  should  be  captured  by  pressing  the  spacebar.  This 
causes  the  live  video  mode  to  be  stopped  and  a  single  frame  acquired.  Press  the 
[Enter]  key  if  the  image  appears  satisfactory  or  press  the  spacebar  again  to  replace 


47 


Figure  27.  Measuring  a  line  during  SETUP.  This  determines  the  vertical 

scaling  factor. 

the  old  image  with  another  digitized  snapshot  of  the  photograph.  Next,  complement 
the  image  if  particles  are  white  against  a  black  background.  The  program  then 
continues  by  clipping  the  image  at  threshold  value  254  as  shown  in  Figure  28. 


==— —  ACQUIRE  IMAGE  -  SNAP  MODE 
Reduce  to  gauge  Lighting  Uniformity 
THRESHOLD  LEVEL;  254 

Use  [+]  and  [-]  keys  to  adjust 
Press  [ENTER]  when  done 


Figure  28.  Adjusting  the  threshold  level  in  SETUP  to  determine  the 
uniformity  of  the  illumination. 
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This  should  Cv''.use  the  whole  image  to  appear  almost  black.  If  this  is  not 
the  case,  the  offset  may  have  to  be  changed.  The  user  should  use  the  [-]  key  to  alter 
the  threshold  level  until  the  background  starts  to  turn  white.  If  the  photograph  has 
been  evenly  illuminated,  the  background  should  turn  white  evenly.  If  the 
illumination  is  uneven,  the  background  will  appear  blotchy.  Press  [Enter]  to  quit. 
This  process  can  be  repeated  to  re-adjust  the  lamp  positions  and  camera  input  offset 
for  optimal  illumination  and  image  contrast.  An  example  of  good  even  illumination, 
achievable  with  the  current  setup,  is  shown  in  Figure  26. 

5.  Changing  System  Defaults 

The  last  step  of  SETUP  is  to  verify  and,  if  necessary,  to  allow  the  user  to 
change  the  defaults  that  SEMEX  and  its  modules  will  use.  The  defaults  are  shown 
in  Figure  23.  The  user  can  sequence  through  the  defaults,  using  the  up  and  down 
arrow  keys.  If  no  changes  are  necessary,  the  user  can  simply  press  [Esc]  at  any  point 
to  terminate  SETUP  and  return  to  the  main  menu. 

B.  IMAGE  ACQUISITION  PROCEDURE 

Select  2  or  move  the  cursor  to  2.  AcptfeTm^  from  the  SEMEX  main  menu. 
If  the  gain  and  offset  have  been  adjusted  during  setup,  then  there  will  be  no  prompts 
to  adjust  them  here  in  ACQUIRE.  If  the  user  has  elected  to  use  a  disk  image,  a 
dialog  box  like  the  one  in  Figure  29  will  appear  asking  for  the  image  filename. 
Upon  retrieving  the  file,  any  comments  embedded  in  the  image  header  will  be 
displayed.  The  program  will  prompt  to  allow  the  left  and  right  margins  to  be 
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cropped  by  pressing  the  spacebar,  so  as  to  remove  any  artifacts  or  textual  information 
(see  Figure  30).  Press  the  [Enter]  key  when  done. 


—  IMAGE  ACQUISITION  — 

READ  IMAGE  FROM  FILE 

Filename:  test _ .  img 

COMMENTS : 

SEM  00001  from  burn  taken  on  25  Sep  90 
Gain=  0;  Offset=  50;  Margins=  0,460; 
VSCALE=  8.400 

Press  any  key  to  continue 


Figure  29.  Acquiring  a  stored  image  into  the  frame  memory.  When  the 

image  is  fetched  from  disk,  the  comments  stored  in  the  image 
header  will  be  displayed. 


- -  IMAGE  ACQUISITION 

Press  [SPACEBAR]  to  crop  image 
one  vertical  line  at  a  time 


Right  margin:  465 
When  done,  press  [ENTER] 


Figure  30.  Cropping  the  right  margin  of  the  image  in  ACQUIRE.  This  is 
to  remove  the  textual  information  on  the  image. 

If  the  features  appear  white  against  a  dark  background,  press  [Enter]  to 


complement  the  image,  else  type  'N’  or  ’n’  to  leave  the  image  unchanged.  The 
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user  can  then  choose  to  save  the  image  in  a  disk  file  or  leave  it  in  frame  memory. 
Choosing  the  former  will  bring  the  user  back  to  the  SEMEX  main  menu  after 
supplying  the  image  filename  and  any  comments.  The  program  will  automatically 
insert  the  image  parameters  (gain,  offset,  margins  and  scale  factor)  into  the  image 
header.  The  sessions  file  is  also  automatically  updated. 

C.  IMAGE  PROCESSING  PROCEDURE 

Image  processing  inside  SEMEX  consists  of  three  steps: 

1.  A  threshold  is  applied  to  the  image  to  convert  it  into  a  binary  image  where 
particles  are  peak  black  and  background  pixels  are  peak  white. 

2.  The  image  undergoes  object  segmentation  whereby  objects  (i.e.,  particles)  are 
discriminated  from  the  background.  Each  object  is  given  a  unique  identification 
number  in  the  form  of  a  gray  scale  value. 

3.  Each  object  is  sized  by  measuring  all  pixels  with  the  same  identification 
number  and  converting  to  microns. 

The  details  of  these  procedures  are  given  below. 

1.  Thresholding  with  CLIP 

The  thresholding  function  is  selected  by  typing  3  on  the  main  menu  which 
highlights  the  option  3.  dtp  Image.  Pressing  [Enter]  activates  the  module  CLIP. 
To  threshold  the  digitized  image  already  on  the  video  monitor,  the  user  simply 
presses  [Enter]  at  the  prompt  'Read  from  disk  file  [N]?’.  The  program  then  begins 
its  automatic  threshold  level  determination.  Almost  immediately,  the  clipped  image 
is  displayed  on  the  video  monitor.  The  user  can  choose  to  vary  the  threshold  (to  fine 
tune  the  thresholding  process)  by  using  the  [-]  or  [  +  ]  keys  (see  Figure  31).  The 
threshold  value  is  displayed,  as  well  as  recorded  in  the  sessions  file.  A  copy  of  the 
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clipped  image  can  also  be  saved  to  disk,  although  this  is  not  necessary  (see 
Figure  32).  The  default  file  extension  is  Ami  for  a  clipped  image. 


CLIPPING  IMAGE 


Determining  threshold. . . 
THRESHOLD  LEVEL:  171 

Use  [+]  and  [-]  keys  to  adjust 
Press  [ENTER]  when  done 


Figure  31.  Clipping  image  using  the  automatic  threshold  which  the  user 
can  subsequently  change  using  the  [  +  ]  and  [-]  keys. 


^  ---=  CLIPPING  IMAGE 

1:  RESTORE  image  to  original  and  abort 
2:  EXIT  without  saving 
3:  SAVE  the  modified  image 

Select  option  by  NUMBER  [3]: 


Figure  32.  Screen  for  selecting  the  outcome  of  the  clipped  image.  Option 

3  is  the  default  which  can  be  invoked  by  pressing  [Enter]. 

2.  Image  Segmentation  using  TAG 

Image  segmentation  is  performed  by  the  TAG  module.  This  module  may 
be  automatically  invoked  after  CLIP  completes,  or  it  can  be  selected  by  pressing  4 
or  moving  the  cursor  to  4.  Tag  Features.  Features  are  tagged  in  two  passes.  The 
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first  scans  the  clipped  image  and  tags  each  pixel  with  an  identification  number  (fid). 
Isolated  pixels  have  unique  numbers  while  adjacent  pbcels  share  the  same  number. 
Essentially,  the  fid  number  identifies  pixels  belonging  to  a  single  feature.  The  second 
pass  searches  for  joined  features  with  different  fid  numbers.  These  are  merged, 
leaving  only  one  fid  number  for  all  pbtels  belonging  to  that  joined  feature.  Figure  33 
shows  the  TAG  screen  after  it  has  completed  tagging  an  image. 


^  TAGGING  IMAGE  ============= 

TAGGING  FEATURES  in  Progress 
190 

Largest  permissible  feature  is  240  pixels 
Combining  joined  features. . . 

6 

FEATURE  COUNT:  184 
Elapsed  Time:  16.0  seconds 
Save  image  to  Disk  File  [N]? 


Figure  33.  TAG  screen  showing  the  number  of  features,  the  number 
merged  and  the  final  count.  The  final  prompt  requests 
whether  to  save  the  tagged  image. 

3.  Feature  Sizing  using  SIZE 

To  run  the  SIZE  option,  the  user  selects  5  to  highlight  the  option  5.  Size 
Features.  SIZE  could  be  also  automatically  invoked  after  CLIP  and  TAG.  SIZE  will 
scan  the  tagged  image  in  frame  memoiy  or  on  disk,  and  measure  the  pixel 
dimensions  of  each  feature.  If  any  feature  fails  to  satisfy  the  size  limits  imposed 
during  setup,  these  will  be  flagged  out  to  the  user.  Figure  34  shows  the  information 
on  the  SIZE  screen. 
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SIZING  FEATURES 


Sized  184  Features  within  specif ications 
Elapsed  time:  8.3  seconds 
Save  data  [Y]? 


Figure  34.  SIZE  screen  showing  number  of  features  sized  and  the  time 

taken  to  size  them.  There  is  also  a  prompt  to  save  the  sized 
feature  data. 

If  the  sizing  is  successful,  the  user  can  save  the  results  into  a  data  file 
which  has  the  same  filename  as  the  image  but  with  the  extension  .dn/.  The  results 
are  also  tabulated  on  the  computer  monitor  twenty  features  at  a  time  (see 
Figure  35).  The  largest  and  smallest  feature  dimensions  are  also  recorded  in  the 
."iessions  file. 

D.  IMAGE  ANALYSIS  PROCEDURE 
1.  Merging  the  Data  Files 

Analysis  of  the  images  is  usually  carried  out  after  a  series  of  SEM  images 
from  the  same  firing  have  been  sized.  Each  sized  image  will  generate  a  data  file 
containing  areas  and  chord  values.  In  order  to  obtain  a  statistically  significant 
sample  population  and  thereby  reduce  sampling  errors,  the  data  files  from  all  the 
images  belonging  to  one  rocket  motor  burn  have  to  be  merged.  Module  ANALYZE 
handles  this  merging  operation  and  is  invoked  by  selecting  6  at  the  SEMEX  main 
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-  TABLE 

OF  FEATl 

IRE  DATA  = 

ID  NO 

AREA_C 

AREA_M 

X-Chord 

Y-Chord 

1 

2 . 042 

2 . 600 

1.300 

2 . 000 

2 

4 . 084 

3.900 

2 . 600 

2 . 000 

3 

25.528 

16.902 

6.501 

5. 000 

4 

24 . 507 

27 .303 

5.201 

6. 000 

5 

70.457 

61.106 

3 . 900 

23 . 000 

6 

2 . 042 

2 . 600 

1.300 

2 . 000 

7 

1.021 

1.300 

1.300 

1.000 

8 

1.021 

1.300 

1.300 

1.000 

9 

1.021 

1.300 

1 .300 

1.000 

10 

15.317 

15.602 

3 .900 

5.000 

11 

8.169 

6.501 

2 . 600 

4 . 000 

12 

1.021 

1.300 

1.300 

1.000 

13 

3 . 063 

3.900 

1 .300 

3 . 000 

14 

20.422 

18.202 

2 . 600 

10.000 

15 

9.190 

9.101 

3 .900 

3 . 000 

16 

1.021 

1.300 

1.300 

1 . 000 

17 

1.021 

1.300 

1.300 

1 . 000 

18 

1.021 

1.300 

1.300 

1.000 

19 

4 . 084 

5.201 

2 . 600 

2 . 000 

20 

1.021 

1.300 

1.300 

1.000 

Press 

[ENTER]  for 

MORE  or 

[ESC]  to 

QUIT 

Figure  35.  Tabulated  data  showing  the  calculated  equi\  c  lent  elliptical 
areas  (AREA_C),  the  measured  pixel  areas  (AREA_M),  the 
X-Chords  and  Y-Chords  for  20  features. 


menu  6.  Analyze  Features.  The  module  will  begin  by  listing  all  the  .dat  data  files 
in  the  current  directory  one  at  a  time,  for  the  user  to  select  (see  Figure  36). 


2.  Calculating  Panicle  Volume 

ANALYZE  calculates  the  particle  volume  by  assuming  that  the  particles 
are  spheres.  It  takes  the  measured  particle  areas  from  all  the  selected  data  files  and 
determines  the  equivalent  particle  diameters  and  volumes.  A  38-bin  histogram  is 
tabulated  and  displayed  10  bins  at  a  time,  lliis  result  is  also  saved  into  an  ASCII  .his 
file  and  can  also  be  saved  in  a  MATLAJB-compatible  .mat  file.  If  the  latter  is 
chosen,  the  user  can  quit  SEMEX  and  have  the  histogram  plotted  by  running  SEM.M 
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MERGING  FILES  - 

DATA  FILENAME 

DATE  CREATED 

TEST1.DAT 

18  Feb  1991 

Include[Y]  ? 

Figure  36.  ANALYZE  screen  prompting  one  data  file  at  a  time  with  its 

date  of  creation.  Pressing  ‘Y’  or  ‘y’  accepts  the  datafile.  A 
count  is  kept  of  the  number  of  files  selected. 


inside  MATLAB.  The  histogram  plot  shows  percentage  of  total  particle  volume 
against  a  logarithmic  scale  of  particle  diameter.  This  plot  format  is  similar  to  that 
put  out  by  the  Malvern  MasterSizer.  For  ease  of  comparison,  both  SEMEX  and 
Malvern  data  can  be  plotted.  Sample  plots  are  shown  in  the  next  chapter. 
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VI.  EXPERIMENTAL  RESULTS 

This  chapter  describes  the  preliminary  experimental  results  obtained.  It  is 
divided  into  three  sections;  system  calibration  and  error  quantification,  comparison 
of  the  performances  of  SEMEX  and  HOLOGRAM,  and,  correlation  of  the  results 
with  that  of  the  Malvern  MasterSizer. 

A.  CALIBRATION 

1.  Determining  Pixel  Aspect  Ratio 

In  order  for  outdata()  in  SIZE  to  properly  convert  pixel  counts  into 
dimensional  lengths  and  areas,  there  is  a  need  to  first  determine  the  pixel  aspect 
ratio.  In  the  vidicon  camera  used,  the  aspect  of  a  single  pixel  is  not  square.  To 
determine  the  actual  aspect  ratio,  a  three-inch  rule  was  placed,  first  horizontally,  then 
vertically.  The  digitized  lengths  were  then  measured  using  the  measure Jine() 
function  in  SETUP.  The  measurements  are  tabulated  in  Table  I. 

Table  1.  CAMERA  PIXEL  SIZE 


Orientation 

Horizontal 

Vertical 

3-inch  Reference  length 

350  pixels 

420  pixels 

Pixel  Length  (inch/pbcel) 

0.00857 

0.00714 

The  pixel  aspect  ratio  can  be  obtained  by  taking  the  ratio  of  the  horizontal 
length  to  vertical  length  of  a  single  pixel.  This  is  equal  to  420  :  350  (or  1.2)  since  the 


same  3-inch  length  was  measured.  In  SEMEX,  this  constant  is  defined  as  the 
ASPECT_RATIO.  This  works  out  to  be  the  same  as  the  frame  aspect  ratio. 

2.  Quantifying  System  Errors 

To  quantify  the  system  errors,  a  test  pattern  was  created  by  placing  on  a 
white  background,  48  black  etch-resistant  circles  used  in  printed  circuit  artwork 
(commonly  called  donut  pads).  Each  circle  has  an  outer  diameter  of  0.187  ±  0.003 
inches  and  an  inner  diameter  of  0.062  ±  0.003  inches  (see  Figure  37).  The  variability 
of  the  outer  diameter  gives  rise  to  an  error  of  1.6%. 


ooooeooooooo 

oooooooooooo 


Figure  37.  Calibration  test  pattern  consisting  of  48  donut  pads  placed  in 
four  rows. 

The  gain,  offset  and  illumination  were  adjusted  in  accordance  with  the 
setup  procedure  and  precautions  given  in  Chapter  V.  The  measure Jine()  function 
was  used  to  determine  the  vertical  outer  diameter  of  the  donut  pad,  in  pwels.  The 
vertical  scale  factor,  VSCALE,  could  then  be  determined  by  taking  the  ratio  of  the 
measured  pixel  length  (28  pixels)  and  the  true  vertical  length  (0.187").  For  the  setup 
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used,  VSCALE  was  found  to  be  149.733  pixels/inch.  Since  measure Jine()  only 
determines  VSCALE  correctly  for  a  5  urn  line,  VSCALE  has  to  be  manually  entered 
in  the  SETUP  screen.  SEMEX  calculates  the  horizontal  scaling  factor  by  dividing 
VSCAl.E  by  ASPECT_RATIO.  The  area  represented  by  a  single  pixel  can  then  be 
found  by  taking  the  reciprocal  of  the  product  of  the  horizontal  and  vertical  scaling 
factors.  This  area,  multiplied  by  the  number  of  pixels  covering  a  particle,  gives  the 
measured  area  of  that  particle. 

Next,  ACQUIRE  module  was  executed  to  digitize  the  test  pattern  into 
frame  memory.  CLIP  was  then  invoked  and  the  automatic  thresholding  function 
autoclipO  applied.  This  yielded  a  visually-clean  binary  image  for  a  threshold  of  157. 
After  exiting  the  CLIP  module,  TAG  and  SIZE  were  invoked.  The  results  are 
tabulated  in  Figure  38.  The  maximum  percentage  error  is  given  by  the  maximum 
deviation  from  the  mean  expressed  as  a  percentage  of  the  mean. 

The  elliptical  areas  (labelled  AREA_C  in  column  2)  were  calculated  by 
taking  the  products  of  the  x-chords  and  y-chords  (these  correspond  to  the  major  and 
minor  axes  of  an  equivalent  ellipse)  and  multiplying  by  the  constant,  7r/4.  The 
AREA_C  values  corresponded  reasonably  well  with  the  actual  pixel  areas  measured 
(labelled  AREA_M  in  column  3).  The  difference  ot  the  two  mean  areas  amounted 
to  3.9%  of  the  mean  of  AREA_M. 

Although  the  effect  of  the  non-square  pixel  aspect  ratio  had  been 
compensated  for,  the  results  showed  that  the  x-chord  and  y-chord  lengths  were  still 
not  equal.  The  difference  between  the  two  mean  chords  was  9.4%  of  the  mean  y- 
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ID 

AREA  C 

AREA  M 

X  CHORD 

Y  CHORD 

1 

0.059 

0.028 

0.184 

0,200 

2 

0.029 

0.028 

0.184 

0.200 

3 

0.026 

0.025 

0.168 

0.194 

4 

0.026 

0.026 

0.168 

0.194 

5 

0.027 

0.027 

0.176 

0.194 

6 

0.028 

0.027 

0.184 

0.194 

7 

0.028 

0.027 

0,184 

0.194 

8 

0.027 

0.027 

0.176 

0.194 

9 

0.027 

0.026 

0.176 

0.194 

10 

0.024 

0.023 

0. 160 

0,194 

11 

0.024 

0.024 

0.160 

0.194 

12 

0.027 

0.026 

0.176 

0,194 

13 

0.028 

0.027 

0,184 

0.194 

14 

0.027 

0.025 

0.176 

0. 194 

15 

0.027 

0.026 

0.176 

0,194 

16 

0.027 

0.026 

0.176 

0.194 

17 

0.026 

0.026 

0.176 

0.187 

18 

0.027 

0.026 

0.176 

0.194 

19 

0.027 

0.026 

0.176 

0.194 

20 

0.027 

0.026 

0.176 

0.194 

21 

0.024 

0.023 

0.160 

0.194 

22 

0.025 

0.024 

0.168 

0.187 

23 

0.026 

0.025 

0.168 

0. 194 

24 

0.024 

0.022 

0.160 

0.187 

25 

0.025 

0.023 

0.168 

0.187 

26 

0.026 

0.024 

0.168 

0.194 

27 

0.027 

0.025 

0.176 

0.194 

28 

0.027 

0.026 

0.176 

0.194 

29 

0.027 

0.026 

0.176 

0.194 

30 

0.027 

0.026 

0.176 

0.194 

31 

0.028 

0.027 

0.184 

0.194 

32 

0.028 

0.027 

0.184 

0.194 

33 

0.027 

0.026 

0.176 

0.194 

34 

0.027 

0.025 

0.176 

0.194 

35 

0.024 

0.024 

0.160 

0.187 

36 

0.025 

0.024 

0.168 

0.187 

37 

0.024 

0.023 

0.160 

0.187 

38 

0.024 

0.024 

0.160 

0.187 

39 

0.025 

0.025 

0.168 

0.187 

40 

0.026 

0.025 

0.176 

0.187 

41 

0.026 

0.026 

0.176 

0.187 

42 

0.028 

0.027 

0.184 

0.194 

43 

0. 0''7 

0.026 

0.184 

0.187 

44 

0.028 

0.026 

0.184 

0.194 

45 

0.028 

0.026 

0.184 

0.194 

46 

0.027 

0.026 

0.176 

0.194 

47 

0.026 

0.025 

0.176 

0.187 

48 

0.027 

0.025 

0.176 

0.194 

Mean 

0.027 

0.026 

0.174 

0.192 

Max  %  Error 

9.43 

13.73 

8.15 

3.71 

Std  Deviation 

0.001 

0.001 

0.008 

0.004 

Figure  38.  Output  from  SIZE  showing  the  results  obtained  from  the 
calibration  test  pattern.  The  calculated  area,  AREA_C,  is 
given  by  7r/4  •  X  CHORD  •  Y  CHORD. 


60 


chord.  The  deviation  within  each  chord  amounted  to  a  8.2%  error  for  the  x-chord 
and  a  3.7%  error  for  the  y-chord.  Taking  into  account  the  variability  of  tlie  donut 
pads  (1.6%),  the  system  has  contributed  to  errors  of  6.6%-  and  2.1%  for  the  x-chords 
and  y-chords  respectively. 

In  an  attempt  to  identify  the  source  of  this  error,  a  square  grid  w;is 
digitized.  A  rectangular  graphics  box  was  then  placed  over  the  grid  lines.  It  w;is 
found  that  vertical  lines  near  the  right  edge  were  slanted  while  lines  along  the  other 
three  edges  were  correctly  digitized  (remained  orthogonal).  Figure  39  shows  the 


Figure  39.  Digitized  image  of  a  square  grid  showing  that  vertical  lines 


near  the  right  edge  were  slanted  when  compared  with  the  dark 
rectangular  graphics  box. 

square  grid  image  with  the  artifact  enhanced  by  the  rectangular  box.  The  maximum 
divergence  was  found  to  be  three  pixels.  Using  a  plumb  line  and  a  liquid  level,  the 
light  table  and  camera  were  checked  for  squareness  and  were  found  to  be  accurately 
aligned.  It  is  suspected  that  this  error  is  due  to  variations  in  the  horizontal  scan 
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velocity  of  the  vidicon  camera  down  the  frame.  If  this  is  true,  then  the  vidicon 
camera  has  introduced  a  scanning  error  of  three  pixels.  However,  this  amounts  to 
only  0.6%  error  over  the  whole  frame  length  and  is  insufficient  to  account  for  the 
deviation  in  the  chord  values. 

Next,  a  3-dimensional  plot  was  made  by  sampling  the  pixel  values  around 
a  single  donut  pad  (32  x  32  pbcels)  in  the  calibration  test  pattern.  Each  grid  square 
represents  one  pixel.  The  pixel  values  are  represented  by  the  height  (z-axis)  of  the 
plot.  Figure  40  shows  that  the  edges  of  the  donut  pad  are  not  vertical.  This  suggests 


Figure  40.  3-D  plot  showing  the  pixel  values  from  a  digitized  image  of  a 

donut  pad.  Note  that  the  plot  has  been  inverted  for  clarity. 
This  gives  rise  to  high  peal^  for  dark  regions. 

that  the  analog-to-digital  (A/D)  converters  in  the  frame  grabber  are  not  fast  enough 
to  digitize  a  sharp  transition  from  peak  white  to  peak  black  (the  latter  is  represented 
by  the  flat  circular  region  on  the  plot).  The  contrast  transfer  function  of  the  camera 
and  lens  system  also  contributes  to  this  limitation.  The  slope  represents  the  amount 
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of  error.  From  the  plot,  the  change  from  peak  white  to  peak  black  takes  one  to  two 
pixels.  As  there  are  two  slopes  for  each  feature,  the  error  could  be  as  much  as  4 
pixels.  Depending  on  the  threshold  selected,  the  cross-sectional  area  would  change. 
The  worst  case  slew  rate  error  for  the  case  of  the  donut  pad  would  be  4  pixels  out 
of  28  (the  measured  pixel  length),  or  14.3%.  The  error  is  a  function  of  the  size  and 
contrast  of  the  feature.  This  error  is  very  significant  for  small  features  of  the  order 
of  one  to  five  pixels.  For  the  magnification  used  in  the  SEM,  a  1/8  /am  particle 
would  occupy  only  two  pixels  and  have  a  slew  rate  error  of  up  to  33.3%.  As  the 
particle  size  increases,  the  error  drops  dramatically.  A  1  ^im  particle,  for  example, 
would  have  a  maximum  slew  rate  error  of  only  6.3%. 

A  major  problem  faced  is  the  determination  of  the  proper  threshold  to  use. 
In  chapter  V,  an  automatic  thresholding  algorithm  was  described.  The  use  of  an 
automatic  threshold  can  significantly  improve  the  throughput.  However,  the  criteria 
for  threshold  determination  is  an  important  consideration.  Figure  41  shows  a  three- 
dimensional  plot  of  a  32  X  32  pixel  gray  scale  image.  The  left  portion  shows  the 
varying  gray  scale  levels  of  each  pixel.  When  the  region  is  clipped,  the  gray  scale 
levels  below  the  threshold  are  suppressed.  However,  different  thresholds  result  in 
vastly  different  results  as  can  be  seen  by  the  center  and  right  portions  of  the  figure. 
The  right  portion  was  obtained  using  the  automatic  thresholding  algorithm.  From 
the  figure,  it  can  be  seen  that  the  limited  slew  rate  has  prevented  small  features  from 
exhibiting  a  high  pixel  value.  Hence,  they  tend  to  be  suppressed.  In  this  particular 
case,  the  autoclipO  function  was  able  to  bring  out  thirteen  features. 
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times  at  different  thresholds.  The  left  portion  is  the  gray  scale 
image.  The  center  and  right  portions  are  at  thresholds  of  33  and 


165. 

B.  PERFORMANCE  COMPARISON  WITH  HOLOGRAM  PROGRAM 

Tlie  HOLOGRAM  program  written  by  Hockgraver  [Ref.  6]  consists  of  the 
following  modules; 

1.  Filtering  routines. 

2.  Image  threshold. 

3.  Feature  identification. 

4.  Feature  sizing. 
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Of  these  four  modules,  only  the  last  three  modules  have  similar  functions  in 
both  HOLOGRAM  and  SEMEX.  The  first  module  (filtering  routines)  is  used  to 
reduce  the  effect  of  speckle  introduced  during  image  reconstruction  from  a  hologram. 
This  is  not  applicable  to  the  SEM  images  as  there  is  no  speckle.  In  addition, 
SEMEX  has  two  essential  stages  not  carried  out  by  HOLOGRAM.  These  are  the 
acquire  and  analyze  stages.  HOLOGRAM  depended  on  the  ImageAction/j/w5 
software  to  perform  image  acquisition  and  on  Statgraphics  for  analysis.  This 
generally  took  much  longer,  as  the  ImageAction/7/u5  was  not  tailored  to  perform  the 
acquisition,  cropping  and  complementing  of  the  images  in  an  efficient  manner.  Also, 
the  scaling  factors  had  to  be  manually  determined.  Similarly,  Statgraphics  required 
its  own  setup  procedure. 

Comparison  of  the  performance  of  the  three  modules  common  to  SEMEX  and 
HOLOGRAM  was  carried  out  by  subjecting  both  programs  to  a  common  set  of 
images.  These  images  were  previously  acquired  and  then  stored  on  disk.  The  images 
had  different  numbers  of  features  ranging  from  48  to  920,  and  are  shown  in 
Figure  42.  The  execution  times  are  tabulated  in  Table  II  and  the  speedup  calculated. 
Speedup  is  defined  as 

Speedup  =  Execution  Time  of  Slow  System  (HOLOGRAM) 
Execution  Time  of  Fast  System  (SEMEX) 

and  is  a  standard  measure  for  the  performance  improvement  of  two  systems. 

From  the  results,  it  can  be  seen  that  the  speedup  becomes  more  significant  as 
the  images  become  more  complex.  Almost  an  order  of  magnitude  improvement  has 
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Figure  42. 


Images  used  for  testing  the  performance  of  SEMEX  against 
HOLOGRAM.  Image  #1  is  the  calibration  test  pattern  with  48 
features  while  images  #2,  #3  and  #4  are  actual  SEM  images  with 
177,  495  and  920  features  respectively. 
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Table  II. 


COMPARISON  OF  EXECUTION  TIMES  FOR  HOLOGRA.M 
AND  SEMEX. 


HI 

THRESHIT 

15 

15 

15 

15 

SI 

CLIP  (Note  1) 

7.5 

7.5 

7.5 

7.5 

SPEEDUP  (Hl/Sl) 

2.0 

1 

2.0 

2.0 

■  1 

2.0 

1 

PROGRAM  FUNCTION 


H2 

FEATID 

49 

66 

96 

185 

S2 

TAG  (Note  2) 

12.9 

14.4 

18.1 

35.1 

SPEEDUP  (H2/S2) 

3.8 

4.6 

5.3 

5.3 

H3 

SIZEIT 

52 

125 

343 

620 

S3 

SIZE  (Note  3) 

7.9 

8.2 

14.6 

SPEEDUP  (H3/S3) 

6.6 

15.2 

24.4 

H4 

HOLOGRAM 

166 

256 

504 

870 

S4 

SEMEX  (Note  4) 

50 

66 

78 

108 

SPEEDUP  (H4/S4) 

3.3 

3.9 

6.5 

8.1 

1.  The  times  for  steps  HI  and  SI  do  not  include  times  to  input  filenames  (approximately 
10  s  each).  The  HI  times  are  based  on  one  iteration  only.  In  practice,  3  to  5  iterations 
may  be  required  before  arriving  at  a  satisfactory  threshold.  For  SI.  the  thresholds  are 
determined  automatically  by  autoclip().  These  same  thresholds  arc  used  in  THRESHIT 
so  that  the  same  binary  images  are  processed  by  both  programs. 

2.  The  times  for  steps  H2  do  not  include  times  to  input  filenames.  For  S2,  no  filename 
entry  is  required  as  the  frame  memory  is  used. 

3.  The  times  for  steps  H3  do  not  include  times  to  input  filenames  and  answering  prompts 
(approximately  25  s).  For  S3,  no  user  intervention  is  required. 

4.  The  times  for  H4  and  S4  includes  all  the  user  input  and  setup  times. 

5.  Four  images  (#1  to  #4)  were  used  with  48,  177,  495  and  920  features,  respectively  (see 
Figure  42). 
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been  achieved.  This  is  because  the  four  nested  loops  used  in  both  THRESHIT  and 
SIZEIT  (in  the  HOLOGRAM  program)  become  highly  inefficient.  In  SEMEX,  this 
inefficiency  is  prevented  by  prematurely  aborting  the  loops  whenever  the  end  of  a 
feature  is  detected. 

Another  observation  was  that,  for  the  same  image  and  threshold,  the  m.odules 
within  the  HOLOGRAM  program  produced  different  feature  counts.  For  example, 
with  image  #2,  THRESHIT  counted  177  features  (same  as  TAG  and  SIZE)  but 
SIZEIT  counted  only  175  features.  Only  image  #1  produced  consistent  results  for 
HOLOGRAM,  whereas  SEMEX  produced  consistent  counts  for  all  the  four  images. 
This  suggests  that  one  or  more  of  the  HOLOGRAM  modules  may  not  have  been 
correctly  coded. 

C.  CORRELATION  WITH  MALVERN  MASTERSIZER 

From  one  of  the  recent  test  firings  using  4.69%  aluminum  solid-propellant,  two 
sets  of  SEM  images  were  extracted  and  analyzed.  The  results  were  then  compared 
with  that  from  the  Malvern  MasterSizer.  The  two  sets  of  results  are  plotted  in 
Figure  43  and  Figure  44. 

The  results  show  that  as  the  particle  counts  increase,  the  distributions  produces 
a  better  correlation  with  the  Malvern.  Hockgraver  [Ref.  6]  showed  that  about  1,000 
particles  were  required  to  produce  a  steady-state  distribution  for  hologram  images. 
From  this  particular  set  of  images,  1,062  particles  appeared  to  be  insufficient. 
Unfortunately,  there  were  no  more  SEM  images  from  the  same  burn  to  extract. 
Hence,  it  is  not  possible  to  verify  the  minimum  sample  size  requirement  at  this  time. 
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Figure  43.  MATLAB  plot  showing  the  histogram  data  from  SEMEX  and 
Malvern  MasterSizer.  The  SEMEX  data  was  obtained  from  three 
images  with  a  total  of  584  particles. 

It  is  suspected  that  an  exact  value  cannot  be  determined  even  if  sufficient  SEM 
images  were  available.  This  is  because  the  particle  distribution  varies  considerably 
with  the  location  of  the  probe  tip  (in  both  the  radial  and  longitudinal  directions),  the 
portion  of  the  filter  paper  from  which  the  SEM  images  were  taken,  and  the 
propellant  characteristics.  There  is  also  a  high  possibility  of  debris  and  other 
contaminants  being  collected  on  the  filter  paper  and  this  could  skew  the  resulting 
particle  distribution. 
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HISTOGRAM  OF  PARTICLE  VOLUME 


Particle  Size  in  Microns  (Log  scale) 

Figure  44.  MATLAB  plot  showing  histogram  data  from  SEMEX  and  Malvern 
MasterSizer.  The  SEMEX  data  was  obtained  from  six  images  with 
a  total  of  1062  particles. 


70 


VII.  CONCLUSIONS  AND  RECOMMENDATIONS 

This  chapter  lists  the  limitations  of  the  present  SEM  extraction  system  and 
makes  recommendations  on  how  to  further  improve  its  performance.  The 
recommendations  are  divided  into  three  sections:  hardware,  software  and 
methodology,  respectively. 

A.  HARDWARE  LIMITATIONS  AND  RECOMMENDATIONS 

1.  Light  Table 

The  light  table  setup  can  be  improved  by  using  a  more  uniformly 
distributed  light.  The  use  of  a  fluorescent  ring  light  with  the  camera  lens  placed 
though  the  center  will  help  distribute  the  light  uniformly  on  the  photographic  image. 
Other  external  illumination  (from  windows  and  ceiling)  should  be  excluded.  Use  of 
diffusers  would  further  reduce  any  uneven  distribution  of  the  illumination.  A  rigid 
photograph  mount  or  stage  would  also  be  helpful  for  accurate  alignment  of  the 
images.  This  would  allow  for  the  use  of  image  subtraction  techniques  whereby  an 
image  of  the  blank  background  is  first  taken.  This  image  is  then  subtracted  from  the 
actual  SEM  images  to  remove  any  dirt  or  artifacts  present  in  both  images. 

2.  Video  Monitor 

The  present  video  monitor  is  unable  to  UiSriay  the  full  image  frame. 
Consequently,  any  edge  artifacts  cannot  be  seen.  The  use  of  a  video  monitor  that 
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has  adjustable  vertical  and  horizontal  static  convergence  controls  (V-SIZE  and  H- 
SIZE)  would  enable  all  the  frame  borders  to  be  seen. 

3.  Video  Camera 

The  use  of  a  Charge-Coupled  Device  (CCD)  camera  with  square  detector 
elements  would  overcome  the  problem  of  the  pixel  aspect  ratio  not  being  square  and 
also  eliminate  the  errors  due  to  the  scanning  of  the  vidicon  camera.  In  order  to 
improve  the  accuracy  of  the  extraction,  higher  resolution  CCD  cameras  (typically 
1024  X  1024  pixels)  would  be  required.  Unfortunately,  these  cameras  are  not  RS-170 
compatible  and  cannot  be  used  with  the  existing  frame  grabber.  The  contrast 
transfer  function  (CTF)  of  the  camera  and  lens  system  may  have  to  be  further 
investigated  to  determine  its  contribution  to  the  slew  rate  errors. 

4.  Direct  Acquisition  of  SEM  Images 

Presently,  the  Hitachi  S450  SEM  has  a  high  persistence  video  display  for 
the  operator  and  a  high  resolution  line  scan  for  exposing  the  photograph.  The 
problem  of  providing  uniform  illumination  during  acquisition  of  the  SEM 
photographic  images  may  be  overcome  by  acquiring  images  directly  off  the  SEM 
video  display.  However,  the  video  display  resolution  is  significantly  poorer  than  the 
line  scan.  Hence,  it  is  not  advisable  to  record  SEM  images  directly  off  the  former. 

A  better  arrangement  would  be  to  tap  out  the  signal  direct  from  the  SEM 
line  scan.  The  line  scan  takes  approximately  five  seconds  to  cover  the  whole  frame 
area.  To  use  this  signal  would  require  building  an  interface  with  the  correct  video 
impedance  matching  and  timing  synchronization.  The  feasibility  of  this  approach 
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would  depend  on  the  availability  of  technical  information  on  the  SEM.  However,  by 
mounting  the  video  camera  in  place  of  the  Polaroid  camera,  it  may  be  possible  to 
integrate  all  the  frames  (approximately  300,  based  on  5  s  at  30  frames/second)  to 
form  a  complete  image. 

An  ideal  solution  would  be  to  use  a  SEM  that  has  a  RS-170  video  output 
and  a  programmable  stage.  In  this  approach,  programmed  instructions  can  be 
inserted  to  make  the  SEM  stage  scan  all  the  areas  on  the  sample  without  overlap. 
The  images  captured  can  be  processed  in  real  time  if  a  faster  processor  is  available. 
Tliis  will  reduce  the  sampling  errors  due  to  small  sample  population. 

5.  Sun  Workstation 

Various  optimization  techniques  have  already  been  employed  to  enhance 
the  speed  of  the  system.  This  has  resulted  in  an  order  of  magnitude  increase  in 
speed  over  that  of  the  HOLOGRAM  program.  Further  attempts  to  increase  the 
speed  would  require  disproportionate  amounts  of  effort  (Amdahl’s  Law).  Presently, 
the  processing  speed  is  limited  by  the  IBM  AT/386  and  the  frame  grabber  memory. 
In  addition,  the  resolution  of  the  current  setup  allows  reliable  sizing  down  to  only 
1/8  nm  (with  some  degradation  in  accuracy).  This  resolution  is  limited  by  the  video 
camera  and  the  frame  grabber. 

By  upgrading  to  a  Sun  SparcStation  1,  it  is  expected  that  another  order  of 
magnitude  increase  in  speed  would  be  possible  with  a  two-fold  increase  in  resolution. 
However,  the  frame  grabber,  video  copy  processor  and  monitor  would  also  have  to 
be  replaced.  The  Sun  SparcStation  1  has  a  32-bit  SPARC  CPU  running  at  1.25  MIPS 
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coupled  with  a  floating-point  unit  for  faster  floating-point  computations.  The  higher 
integer  and  floating-point  performance  over  a  PC  would  auger  well  for  processing  the 
larger  image  arrays.  It  has  a  104  MB  internal  SCSI  hard  disk  and  a  3.5"  1.44  MB 
floppy  disk  drive  for  easy  data  transfer  and  DOS  compatibility.  The  latter  would 
allow  the  SEMEX  program  to  be  ported  over.  A  higher-resolution  frame  grabber 
with  function  calls  compatible  with  the  PCVISIONp/u.y  should  be  used  to  minimize 
software  portability  problems.  The  monitor  resolution  is  1152  (h)  by  900  (v)  pixels 
with  a  pbcel  aspect  ratio  of  1:1.  The  monitor  has  horizontal  and  vertical  static 
convergence  controls  to  adjust  the  frame  size. 

B.  SOFTWARE  ENHANCEMENTS 

1.  Automatic  Camera  Input  Adjustment 

Automated  setup  procedure  for  adjusting  the  camera  inputs  can  be  done 
by  generating  a  histogram  of  the  distribution  of  pixel  gray  scales.  An  image  with 
good  contrast  would  have  a  good  spread  of  gray  scales  ranging  from  peak  black  to 
peak  white.  An  algorithm  could  be  devised  that  would  analyze  the  gray  scale 
distribution  and  would  adjust  the  camera  offset  automatically  to  maximize  image 
contrast.  TTiis  would  eliminate  the  subjective  determination  of  the  camera  input  gain 
and  offset.  The  setup  time  could  al.so  be  shortened,  as  there  would  be  less  user 
intervention  required. 
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2.  Automatic  Threshold  Algorithm 


Currently,  the  background  is  sampled  at  fixed  points  which  have  been 
empirically-determined,  based  on  the  existing  lighting  arrangement.  Changing  the 
lighting  could  affect  the  performance  of  the  automatic  threshold  algorithm. 
Consequently,  the  regions  may  not  be  optimal  and  may  need  to  be  changed.  With 
faster  processors  available,  the  whole  frame  area  can  be  scanned  to  determine  the 
background  threshold.  This  would  result  in  a  more  accurate  background  threshold 
assessment. 

3.  Improved  Image  Processing  Algorithms 

Improved  image  processing,  such  as  independent  sizing  of  overlapping 
particles,  filling  in  of  hollow  areas,  and  filtering  off  of  irregularly-shaped  features  that 
fail  certain  roundness  and  sphericity  tests,  could  be  added.  Currently,  joined  features 
are  treated  as  one  large  feature  with  an  irregular  perimeter.  However,  if  the 
curvature  of  each  of  the  overlapped  feature  could  be  found,  the  outline  of  each  of 
the  overlapped  features  could  be  determined.  This  requires  a  significant  amount  of 
computation  and,  hence,  was  not  implemented  in  SEMEX. 

Up  to  this  point,  the  only  sphericity  test  carried  out  is  by  calculating  the 
area  of  an  equivalent  ellipse  using  the  x-chord  and  y-chord  lengths.  This  could  be 
improved  by  measuring  other  parameters,  such  as  the  perimeter  or  radius  of 
curvature.  In  some  cases,  particularly  when  large  particles  are  involved,  it  was  noted 
that  the  centers  of  the  particles  were  not  filled.  This  would  result  in  smaller 
measured  areas  (AREA_M)  and  could  introduce  false  features  within  the  hollow  of 
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the  particle  (see  Figure  45).  TAG  may  have  to  be  modified  to  test  for  the  existence 
of  unfilled  areas  and  to  fill  these  up  automatically. 


region  is  not  a  plateau.  A  smaller  particle  can  be  seen  rising 
out  of  the  center.  This  would  give  rise  to  two  particle  counts. 


4.  Frame  Border 

The  addition  of  an  area  of  interest  may  be  justified  if  particles  are  likely 
to  be  small.  This  would  then  give  rise  to  a  border  region  whereby  particles  cutting 
the  border  would  be  sized  and  counted  as  a  fraction  of  a  particle,  depending  on  the 
proportion  inside  the  area  of  interest.  Particles  outside  the  area  of  interest  are  not 
sized.  This  will  eliminate  sizing  errors  due  to  incomplete  particles.  An  alternative 
scheme  would  be  to  simply  exclude  all  particles  touching  the  edge  of  the  frame. 
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C.  IMPROVEMENTS  IN  METHODOLOGY 


1.  Photographing  SEM  Images 

As  far  as  possible,  images  should  be  taken  with  the  same  magnification 
and  brightness  and  contrast  settings.  This  would  enable  the  acquisition  stage  to 
proceed  faster.  SETUP  would  have  to  be  called  only  once  and  all  the  parameters 
would  then  be  left  unchanged  for  the  whole  set  of  images. 

From  the  five  sets  of  images  processed,  it  was  found  that  up  to  four 
exposures  could  be  made  on  one  photograph  without  significant  degradation  in  the 
results.  This  saves  time  in  the  photographing  process  and  also  in  the  extraction 
process.  The  only  limitation  is  where  overlapping  of  particles  begins  to  occur,  due 
to  the  multiple  exposures.  This  will  result  in  larger  particles  being  sized. 

In  chapter  VI,  more  than  500  particles  were  used  in  the  histogram  plots. 
This  was  found  to  be  insufficient.  Hence,  there  should  be  sufficient  SEM  images  to 
extract  so  that  a  steady-state  distribution  can  be  obtained. 

2.  Running  SEMEX 

Although  SEMEX  allows  the  user  to  customize  the  sequence  of  the 
processing,  there  is  a  preferred  sequence  to  extracting  SEM  images,  namely;  acquire, 
clip,  tag  and  size.  This  was  shown  in  Figure  5  and  the  aim  is  to  reduce  disk  reads 
and  writes  which  takes  between  5  and  8  seconds  per  image.  An  image  which  has 
been  acquired  and  saved  has  its  pixel  values  stored  in  the  frame  memory.  Hence, 
CLIP  can  be  initiated  without  recalling  the  image  from  disk.  Similarly,  after  each 
clip  and  tag  operation,  the  frame  memory  can  be  used  by  tag  and  size,  respectively. 
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In  this  way,  there  is  no  need  to  retrieve  an  image  from  disk.  Another  advantage  is 
that  intermediate  disk  files  need  not  be  maintained  (i.e.,  .iml,  .im2  and  .im3  files). 

D.  CONCLUSIONS 

The  IBM  AT/386  running  SEMEX  has  been  found  to  speed  up  the  extraction 
of  particle  sizes  from  SEM  images.  The  results  show  that  for  the  three  stages  of 
clipping,  tagging  and  sizing,  a  speedup  of  nearly  an  order  of  magnitude  was  possible 
over  that  of  the  HOLOGRAM  program.  TTie  speedup  and  throughput  would  be 
considerably  more  if  all  the  stages  of  acquisition,  clipping,  tagging,  sizing  and  analysis 
were  compared.  The  errors  obtained  for  small  particle  sizes  on  the  order  of  half  a 
micron  or  less  are  considerable.  To  reduce  these  errors,  the  magnification  of  the 
SEM  images  would  have  to  be  increased  or  a  higher-resolution  acquisition  system 
would  be  required.  The  simplest  approach  would  be  to  increase  the  magnification. 
This  would  require  more  photographic  images  and  consequently  more  operator  time 
and  manpower  cost,  A  higher-resolution  system  would  entail  an  increase  in 
computational  cost  on  the  order  of  the  square  of  the  frame  length  in  pixels.  This 
would  strain  the  IBM  AT/386  but  would  be  comfortably  handled  by  a  Sun 
SparcStation.  The  capital  outlay  could  be  justified  by  the  gain  in  system  resolution 
and  the  savings  in  manpower  cost. 
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APPENDIX  A.  NOTES  TO  THE  PROGRAMMER  AND  THE  USER 


This  appendix  contains  a  description  of  the  files  and  libraries  used  by  SEMEX. 
It  describes  the  process  of  compiling  the  source  codes  into  an  executable  file  using 
the  Microsoft  MAKE  facility.  The  corresponding  makefile  (MAKESEM)  is  also 
listed.  In  addition,  pointers  to  programmers  and  users  are  provided  to  help  them 
understand  and  maximize  the  potential  for  this  program. 

A.  SEMEX  PROGRAM  FILES 

Figure  46  lists  the  files  required  to  make  up  the  SEMEX  executable  file.  The 
files  with  the  .C  extension  are  the  C  source  files.  These  are  ASCII  text  files  and  can 
be  edited  with  any  ASCII  text  editor.  The  full  listings  of  the  source  files  are  found 
in  Appendbc  B.  The  GLOBAL.H  file  contains  all  the  prototype  definitions  required 
by  the  C  language  for  SEMEX;  global  variables  and  constants  are  also  defined  here. 
A  full  listing  of  GLOBAL.H  is  also  found  in  Appendix  B. 

When  compiled,  each  source  file  produces  a  corresponding  .OBJ  object  file. 
The  object  files  contain  the  machine  language  instructions  required  to  perform  the 
commands  contained  in  the  source  codes.  The  process  of  linking  resolves  any 
external  function  calls  or  variables  and  binds  the  object  codes  and  the  libraries 
together  to  produce  an  executable  file.  After  linking,  the  SEMEX.EXE  file  is 
created.  This  process  of  compiling  and  linking  can  be  automated  by  using  the  MAKE 
facility  provided  by  Microsoft.  The  MAKE  command  requires  a  makefile  which 
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Figure  46.  Listing  of  SEMEX  C  source  files,  object  files  and  executable 
files  using  the  DOS  DIR  command. 


contains  the  file  dependencies  and  the  commands  to  be  executed.  The  MAKESEM 
makefile  used  in  developing  the  current  version  of  SEMEX  is  shown  in  Figure  M. 
MAKE  will  determine  the  validity  of  the  object  files  based  on  the  dates  last 
modified.  If  the  source  file  has  a  date  later  than  that  of  the  corresponding  object 
file,  MAKE  will  recompile  the  source  file  to  generate  a  new  object  file.  If  the  object 
file  is  current,  no  action  is  taken.  In  this  way,  only  files  that  have  been  modified  will 
be  compiled.  This  saves  compilation  time.  Text  between  the  number  sign  '#’  till 
the  end  of  the  line  are  treated  as  comments  and  are  ignored  by  MAKE. 

The  compile  switches  currently  set  are: 

/AL  This  compiles  the  source  file  using  the  large  memory  model.  Far 
pointers  are  allocated.  By  default,  maximum  optimization  is  used. 
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#  Make  file  for  semex.c  and  all  the  dependencies 

# 

#  To  execute  type:  make  makesem 

# 

#  Options  for  optimizing  and  no  CodeView 
OPT  =/Ze 

LOPT  =/E  /ST;8192 

#  Options  for  no-optimization  and  CodeView 
#OPT  =/Zi  /Od 

#LOPT  =/CO  /ST;8192  /F  /PAG 

#  Library  paths  -  LARGE  ITEXPCpIus  library  and  LARGE  Microsoft  C  library 
LIBl  =  \pcplus\itex\itexpcm( 

LIB2  =\msc\iib\llibce 

acquire.obj:  acquire. c  #  makesem 

cl  /c  /AL  $(OPT)  /G2  /Fs  /SI  100  acquire.c 

analyze.obj:  analyze.c  #  makesem 

cl  /c  /AL  $(OPT)  /G2  /Fs  /SI  100  analyze.c 

clip.obj:  clip.c  #  makesem 

cl  /c  /AL  $(OPT)  /G2  /Fs  /SI  100  clip.C 

semex.obj:  semex.c  #  makesem 

cl  /c  /AL  $(OPT)  /G2  /Fs  /SI  100  semex.c 

semio.obj:  semio.c  #  makesem 

cl  /c  /AL  $(OPT)  /G2  /Fs  /SI  100  semio.c 

setup.obj;  setup.c  #  makesem 

cl  /c  /AL  $(OPT)  /G2  /Fs  /SI  100  setup.c 

size.obj:  size.c  #  makesem 

cl  /c  /AL  $(OPT)  /G2  /Fs  /SI  100  size.c 

tag.obj:  tag.c  #  makesem 

cl  /c  /AL  $(OPT)  /G2  /Fs  /SI  100  tag.c 

semex.exe:  makesem  semex.obj  semio.obj  size.obj  setup.obj  tag.obj  clip.obj 
acquire.obj  analyze.obj 

link  /NOD  $(LOPT)  semex  semio  size  setup  tag  clip  acquire  analyze,,, 
Iwin  $(LIB1)  $(LIB2) 

del  *.lst 


Figure  47.  MAKEFILE  used  in  creating  SEMEX. 
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/G2  This  compiles  using  the  80286  code  instead  of  the  8088  code. 

/Ze  This  enables  extensions  to  ANSI  C  and  offers  additional  features  beyond 
that  provided  by  ANSI  C.  One  particular  feature  required  by  SEMEX 
is  the  use  of  casts  to  produce  lvalues  (left-hand  values). 

/SI  100  This  sets  the  width  of  the  listing  file  to  100  characters.  If  a  compilation 
error  is  detected,  MAKE  will  abort  leaving  a  listing  file  which  the  user 
can  refer  to.  If  no  errors  are  detected  after  linking,  all  the  listing  files 
are  deleted. 

The  variables  $(OPT)  and  $(LOPT)  in  MAKESEM  are  used  for  macro 
substitutions  and  will  be  replaced  by  their  equivalent  right-hand  expressions  specified 
at  the  beginning  of  the  makefile.  Two  sets  of  equates  are  provided;  one  is  for  enable 
CodeView  debugging  while  the  other  optimizes  for  speed.  The  former  is  currently 
commented  out. 

After  successful  compilation,  the  linking  process  will  be  initiated.  As  long  as 
one  object  file  has  been  modified,  the  LINK  command  will  be  invoked.  This  causes 
the  object  files  and  the  libraries  to  be  linked  together.  The  libraries  must  be  in  the 
correct  sub-directories  as  indicated  by  their  paths.  If  the  link  is  successful,  all  the 
listing  files  will  be  deleted.  The  libraries  used  are 

TWIN. LIB  Large  Memory  Model  Library  for  WINDOW  BOSS.  This 

currently  resides  in  f:\SEMEX. 

ITEXPCML.LIB  Large  Memory  Model  Library  for  ITEX  VCplus. 

LLIBCE.LIB  Large  Memory  Model  Library  for  Microsoft  C. 
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B.  SEMEX  OUTPUT  FILES 


SEMEX  may  generate  one  or  more  output  files.  Some  of  these  files  are  used 
by  other  modules  in  SEMEX,  while  others  are  files  which  the  user  can  subsequently 
access.  Figure  48  shows  the  files  that  can  be  generated  by  SEMEX  and  what  they 
represent.  SEMEX  automatically  appends  the  correct  extension.  The  extension 
provided  should  not  be  changed,  as  this  may  confuse  SEMEX.  The  filename  can  be 
entered  by  simply  typing  in  the  characters.  The  [Ins]  key  can  be  used  to  insert 
characters  between  existing  characters  and  the  [♦-]  and  [-►]  arrows  keys  can  be  used 
to  position  the  cursor. 

The  image  files  are  all  stored  in  ITEX  PCplus  compressed  file  format.  This 
generally  achieves  a  storage  efficiency  of  1.8.  However,  for  highly  textured  images, 
the  compressed  file  may  actually  take  up  more  disk  space.  With  the  exception  of  the 
.mat  and  .met  files,  the  rest  of  the  files  are  ASCII  text  files.  It  should  be  noted  that 
non-ASCII  files  should  not  be  read  by  a  text  editor  as  the  latter  may  try  to  format 
the  files  by  inserting  special  codes.  This  would  destroy  the  integrity  of  the  files 
render  them  unusable. 

C.  WORKING  FROM  DIFFERENT  DIRECTORIES 

Generally,  subdirectories  may  be  used  to  contain  image  files  from  a  particular 
burn.  In  this  case,  SEMEX  should  be  run  from  that  particular  subdirectory  from 
which  the  images  are  to  be  processed.  To  do  this,  simply  type  the  following 
commands.  For  example,  if  the  images  are  contained  in  g;\SEM\fl4,  type 
g:  [Enter] 
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FILE  EXT 
.ses 

Amg 

Ami 

Am2 

Am3 

.dat 

.his 

.mat 

.met 

Figure  48. 


DESCRIPTION  AND  USAGE 

Sessions  file  used  to  record  all  the  activities  for  the  day.  The 
filename  is  based  on  a  3-letter  month  code  and  a  2-digit  date 
code  (e.g.,  Mar28.ses). 

Image  file  generated  by  ACQUIRE  if  the  save  option  is 
exercised.  The  image  is  generally  cropped  and  complemented. 

Image  file  generated  by  CLIP  if  the  save  option  is  exercised. 
The  image  has  been  clipped  and  can  be  read  by  the  TAG 
module. 

Image  file  generated  by  TAG  if  the  save  option  is  exercised.  The 
image  has  been  tagged  and  can  be  read  by  the  SIZE  module. 

Image  file  generated  by  SIZE  if  the  save  image  option  is 
exercised.  The  image  should  be  identical  to  .iml.  This  is 
provided  merely  for  test  and  verification  purposes. 

This  is  the  data  file  generated  by  SIZE  if  the  save  data  option  is 
exercised.  The  data  consists  of  the  fid,  the  calculated  area 
(AREA_C),  the  measured  area  (AREA_M),  the  x-cbord  and  the 
y-chord,  for  every  feature  that  meets  the  size  specifications  (i.e., 
not  rejected). 

This  is  the  histogram  data  file  generated  by  ANALYZE.  It 
contains  38  rows  of  data.  Each  row  represents  one  bin  and 
contains  the  upper  and  lower  bin  limits,  the  volume  in  /Llm^  the 
percentage  of  total  volume,  the  feature  count  and  the  percentage 
of  total  features  counted. 

This  is  the  MATLAB  data  file  generated  by  ANALYZE  and 
contains  information  similar  to  the  histogram  data  file  except  that 
it  is  in  a  MATLAB  format.  This  is  the  file  which  will  be  asked 
for  by  SEM.M. 

This  is  the  MATLAB  graphics  output  file  which  is  generated 
when  the  MATLAB  meta  command  is  invoked.  The  .met  files 
can  be  plotted  by  typing  GRAPH  when  in  DOS. 


List  of  output  files  generated  by  SEMEX. 
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cd  \SEM\fl4  [Enter] 

Then,  to  execute  SEMEX  from  f:\SEMEX,  type 
f:\SEMEX\SEMEX  [Enter] 

To  run  MATLAB,  first  make  sure  that  the  MATLAB  path  is  set.  For  example, 
if  MATLAB  resides  on  drive  f:  in  a  directory  called  \MATLAB,  then  the  following 
line  must  be  added  to  the  CONFIG.SYS  file 
MATLABPATH  =  f;\  MATLAB 

In  order  for  the  path  to  be  set,  the  IBM  system  would  have  to  be  reset  by 
simultaneously  pressing  [Ctrl],  [Alt]  and  [Del].  After  the  system  has  booted  up,  type 
M.ATLAB  at  the  DOS  prompt.  The  histogram  plotting  function  is  invoked  by  typing 
sem  [Enter] 

when  inside  MATLAB.  The  function  will  request  for  a  histogram  filename.  Type 
in  the  filename  and  the  .his  extension.  It  will  then  ask  whether  to  input  the  Malvern 
data.  If  the  user  chooses  to,  the  function  will  display  each  bin  limit  and  request  for 
the  corresponding  Malvern  data.  After  the  bins  are  filled,  MATLAB  will  plot  out 
the  histogram.  The  MATLAB  meta  function  can  be  invoked  to  save  the  plot  which 
can  then  be  printed  out  using  the  GRAPH.BAT  command  in  DOS. 

D.  SPECIAL  KEYS  TO  NOTE 

Besides  the  keys  mentioned  above,  the  following  keys  are  important  and  useful 
to  note. 

[Esc]  This  key  is  to  terminate  SEMEX  when  in  the  main  menu.  It  can  also 
be  used  to  abort  any  unwanted  command.  For  example,  SIZE  usually 
proceeds  automatically  after  TAG  finishes  (unless  disabled  during 
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SETUP).  However,  if  the  user  finds  that  the  tagging  operation  has 
produced  wrong  results  (possibly  because  the  size  parameters  have  been 
wrongly  set),  then  he  or  she  could  press  the  [Esc]  key  when  any  prompt 
appears.  This  will  terminate  TAG  and  return  the  user  to  the  main 
menu. 

[FI]  This  function  key  is  used  to  obtain  help  information.  The  help  is 
context-sensitive,  where  available. 

Mouse  support  is  not  available  at  this  time.  However,  the  programmer  can 
refer  to  the  WINDOW  BOSS  manual  on  how  to  incorporate  functions  supporting  the 
mouse. 
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APPENDIX  B.  PROGRAM  LISTINGS 


This  appendix  contains  all  the  source  code  listings  for  SEMEX  and  its  modules. 
The  listings  are  documented  with  comments  at  the  start  of  each  function  and  at  the 
end  of  each  line.  These  are  marked  with  a  slash  and  an  asterisk  in  the  following 
way,  /*  Comment  */.  Also  included  is  the  MATLAB  script  file  SEM.M.  The 
sequence  of  the  listings  are  as  follows: 

GLOBAL.H 

SEMEX.C 

SETUP.C 

ACQUIRE.C 

CLIP.C 

TAG.C 

SIZE.C 

ANALYZE.C 

SEM.M 
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*  GLOBAL . H  Include  files  for  use  with  SEMEX  programs 

Ay>  A******  A*********#******'****  **'*********  A**iM*********A*******i»yt  A*  A 

*/ 

^include  <math.h> 

#include  *' itexpfg . h”  /*  ITEX  PCplus  function  definitions  */ 

^include  "stdtyp.h"  /*  ditto  */ 

^include  "window. h"  /*  WINDOW  BOSS  function  definitions  */ 

/*  Program  constants  for  the  SEM  Extraction  (SEMEX)  program 

*  used  in  conjunction  with  the  PCVISIONplus  Frame  grabber  and 
ITEXPCplus  library  functions  */ 


/"  PCVISIONplus 

Board 

Settings 

it 

/ 

#def ine 

MEMBASE 

OxDQOOOL 

!* 

base  memory  start  address  */ 

#def ine 

REGBASE 

0x300 

/* 

base  register  start  address  */ 

#def ine 

MEMORY 

DUAL 

/* 

memory  type  */ 

/*  Frame  Dimensions  */ 

y^def  ine 

XSIZE 

512 

/* 

Number  of  pixels  in  X  direction  */ 

yMef  me 

YSIZE 

512 

/* 

Number  of  pixels  in  Y  direction  */ 

#def ine 

DEPTH 

8 

/* 

Number  of  bits  per  pixel  */ 

f*  AOI 

(area  of 

interest)  settings 

•/ 

#def  me 

IXS 

0 

/* 

Initial  X  Starting  Point  */ 

y^def  me 

lYS 

0 

/* 

Initial  Y  Starting  Point  */ 

^Mef  me 

NROW 

A80 

/* 

Total  Number  of  rows  in  image 

^define 

NCOL 

512 

/* 

Total  Number  of  columns  in  image  */ 

y>def  me 

LASTROW 

A79 

/* 

Last  row  in  image  */ 

y>def  me 

LASTCOL 

511 

/* 

Last  column  in  image  */ 

/*  Threshold  Limits 

*/ 

#de£ine 

LOWEST 

0 

/• 

Equates  to  Black  for  iowcut  value  */ 

#define 

HIGHEST 

255 

/* 

Equates  to  White  for  highcut  value  */ 

y>def  me 

BLACK_LEVEL 

0 

/* 

Indicates  a  feature  */ 

#de£ine 

WHITE~LEVEL 

255 

/* 

Represents  background  */ 

#def ine 

HIGH 

254 

/* 

Highest  Tag  value  */ 

♦define 

LOW 

1 

/* 

Lowest  Tag  Value  */ 

♦define 

GRAY 

128 

/* 

Middle  Gray  level  */ 

/♦  Miscellaneous 

Limits  AND  Defaults  */ 

#def ine 

MAXFLEN 

20 

/♦ 

Max  filename  length  »/ 

#define 

MAXLEN 

200 

/• 

Max  comment  length  allowed  by  ITEX  */ 

#define 

MAXCLEN 

50 

/* 

Comment  length  */ 

/♦  Define  enter  key  */ 

♦define 

ENTER 

OxOd 

/* 

[ENTER]  key  signature  •/ 
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I* 

*  Global  Variables  Declarations 
*/ 


extern 

char  f  1  lename  [  MAXFLEN 1 

/* 

imase  filename  */ 

extern 

char  session(MAXFLEN) ; 

/* 

session  filename  */ 

extern 

char  comline [MAXLEN] ; 

/* 

entire  comment  Line  */ 

extern 

char  comlinel [MAXCLENJ ; 

/* 

comment  line  1  •/ 

extern 

char  comline2 (MAXCLEN ] ; 

/* 

comment  line  2  */ 

extern 

FILE  ‘fp; 

/* 

session  file  pointer  */ 

extern 

float  ASPECT_RATIO; 

/* 

X  to  Y  aspect  ratio  of  a  pixel  */ 

extern 

long  TOTAL ; 

/<' 

Total  feature  counter  */ 

extern 

int  OVERSIZE; 

/* 

Default  too  large  feature 

extern 

int  UNDERSIZE; 

/* 

Default  too  small  feature  */ 

extern 

int  GAIN  LVL; 

/* 

Initial  Gain  level  */ 

extern 

int  OFFSET_LVT.: 

/" 

Initial  Offset  level  */ 

extern 

int  LT_MARGIN; 

/* 

Initial  Left  Margin  */ 

extern 

int  RT^MARGIN; 

/* 

Initial  Right  Margin  */ 

extern 

int  DF_GAIN  ; 

/* 

Default  gain  flag  */ 

extern 

int  DF_OFFSET; 

/* 

Default  Offset  flag  */ 

extern 

int  DF_LM; 

/* 

Default  left  margin  flag  */ 

extern 

int  DF_RM; 

/- 

Default  right  margin  flag  */ 

extern 

float  VSCALE; 

/♦ 

Initial  vertical  scale  factor  */ 

extern 

int  DF_VSCALE; 

/* 

Default  vertical  scale  factor  flag  */ 

extern 

int  DF_INVERT; 

/' 

Auto  Complement  flag  */ 

extern 

int  LOAD  RAW; 

/* 

Auto  load  RAW  image  flag  */ 

extern 

int  LOADCLIP; 

/* 

Auto  load  Clipped  image  flag  */ 

extern 

int  DF_SIZE: 

/' 

Default  size  limits  flag  */ 

extern 

int  LOADTAG; 

/" 

Ask  to  load  tagged  image  flag  */ 

extern 

int  DO_SE0; 

/* 

Flag  to  sequence  through  whole  process 

extern 

int  HELP  LVT; 

/' 

Help  Level  */ 

/* 

*  External  function  prototypes  found  in  SEMIO.C 

*  f 

extern  int  getim(WINDOWPTR  w.lnt  n);  /*  read  image  function  */ 
extern  int  putimCWINDOWPTR  w,int  n);  /*  save  image  function  */ 
extern  void  chgext(char  'fd,  char  *fs,  char  *ext); 

/*  change  extension  function  */ 


/*  End  of  file  GLOBAL. H  */ 
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*  Global  Variables  Defines 
*/ 

char  filenamelMAXFLEN] ;  /*  image  filename  */ 

char  session [MAXFLEN] ;  /*  session  filename  »/ 

char  comlinetMAXLEN] ;  /*  entire  conment  line  */ 

char  comiinel[MAXCLEN) ;  /*  comment  line  1  */ 

char  eomline2[MAXCLENl ;  /*  comment  line  2  */ 

FILE  *f?:  /*  session  file  pointer  */ 

float  ASPECT_RATIO  ■=  1.200;  /*  X  to  Y  pixel  aspect  •/ 

long  TOTAL:  /*  keeps  track  of  total  feature  count  */ 

/*  The  following  can  be  redefined  during  run  time  by  using  setupO  *7 

int  GAIN  LVL  «  0  ;  /*  Initial  Gain  -  set  to  highest  */ 

int  OFFSET  LVL  ■=  60  ;  /*  Initial  Offset  -  set  to  midpoint  */ 

int  DF  GAIN  “  FALSE:  /*  Don't  use  default  gain  •/ 

int  DF~OFFSET  •  FALSE;  /*  Don’t  use  default  Offset  */ 

int  LT  MARGIN  -  0  ;  /*  Initial  Left  Margin  -  leftmost  */ 

int  Rt'mARGIN  -  512  /*  Initial  Right  Margin  •/ 

int  DF  LM  “  TRUE  ;  /*  Use  default  left  margin  =  0  */ 

int  DFRM  -  FALSE:  /*  Don't  use  default  right  margin  ♦/ 

int  OviRSIZE  '  100  :  /*  Default  too  large  feature  */ 

int  UNDERSIZE  ■=  1  :  /*  Default  too  small  feature  */ 

int  DF_SIZE  ■=  TRUE  ;  /*  Use  default  size  limits  */ 

float  VSCALE  “  1.0  ;  /*  Default  Vertical  scale  factor  */ 

int  DF_VSCALE  -  TRUE  ;  /*  Use  default  scale  */ 

int  DO  SEQ  •  TRUE  ;  /*  Auto  sequence  through  whole  process  */ 

int  DF~INVERT  -  TRUE  ;  /*  Complement  Automatically  */ 

int  LOAD  RAW  •  FALSE;  /*  Don’t  load  RAW  image  automatically  */ 

int  LOADCLIP  '  FALSE;  /*  Don't  load  Clipped  image  automatically  */ 

int  LOADTAG  -  FALSE;  /*  Don't  load  Tagged  image  automatically  */ 

int  HELP_LVL  -  TRUE  ;  /*  Enable  help  screens  */ 

unsigned  blue  -  BLUE  ;  /*  remap  for  mono  •/ 
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main(void) 


{ 

/’*  Prototype  declarations  */ 
extern  int  setup(void); 
extern  int  acquire(void) ; 
extern  int  cLlpmain(void) ; 
extern  int  tagmain(void) ; 
extern  int  sizemainCvoid ) ; 
extern  int  analyze (void ) ; 
extern  clock_t  clock(void): 
extern  void  fginit(void) , 
extern  void  session_name(void) ; 

WINDOWPTR  vm; 
int  1 : 

int  watrib.batrib; 
int  rv  =  0; 
int  rerr  =  0; 
int  row, col; 
clock  t  start; 


/*  setup  function  */ 

/*  Acquire  images  from  camera  */ 

/*  Clip  Image  *f 
/*  Feature  Tagging  */ 

/*  Feature  Sizing  */ 

/*  Analyse  Feature  data  */ 

/*  Returns  Number  of  clock  ticks  */ 
/*  Frame  Grabber  Initialization  */ 
/*  Use  date/time  as  session  name  */ 

/*  One  Window  */ 

/*  scratch  integer  */ 

/*  scratch  atributes  */ 

/*  for  menu  choice  */ 

/*  return  value  from  functions  */ 
for  positioning  windows  */ 

/*  Time  variable  */ 


static  struct  pmenu  smenu  =  { 

/* 

define  main  menu  */ 

0, 

FALSE,  0, 

/* 

page  0,  window  open,  Indx 

3, 

8, 

{ 

/* 

accept  menu  field  3  thru  6 

2, 

11, 

"SEME  X", 

0. 

/* 

field  0  “ 

info  */ 

3. 

4  . 

"SEM  Extraction  Program", 

0, 

/* 

field  1  “ 

info  */ 

u , 

3, 

"Naval  Postgraduate 

School' 

,  0, 

/* 

field  2  - 

info  */ 

6  , 

6, 

"I.  Setup  SEMEX 

",  1, 

/* 

field  3  - 

choice  1  */ 

7  , 

6, 

"2.  Acquire  Image 

",  2, 

/* 

field  4  - 

choice  2  */ 

8, 

6, 

"3.  Clip  Image 

3, 

/* 

field  5  - 

choice  3  */ 

9, 

6, 

"4 .  Tag  Features 

", 

/* 

field  6  - 

choice  4  *• ! 

10  , 

6, 

"5.  Size  Features 

"  ,  5, 

/* 

field  7  - 

choice  5  */ 

11, 

6, 

"6.  Analyze  Features 

",  6, 

/* 

field  8  - 

choice  6  */ 

13, 

3, 

"Use  cursor  keys  to 

select' 

,  0, 

/* 

field  9  - 

info  */ 

11 , 

3, 

"Press  [Enter]  to  execute  ‘ 

,  0, 

/* 

field  10 

-  info  *! 

15, 

3, 

"Press  (Escl  to  quit 

,  0, 

/* 

field  11 

-  info  */ 

99, 

}; 

99, 

"",99  } 

/* 

menu  terminator  */ 

start 

. 

elockC ) ; 

/* 

start  timing 

*/ 

if(wns_mtflg  “  7)  blue  BLACK;  I*  remap  if  mono  */ 


printf ("Initializing.  Please  wait.. 
fginit( ) : 
strcpyC filename . " 
session_name( ) ; 

watrib  “  v_setatrCWHITE , BLACK. 0 . BOLD 
for(i“0;  i<25;  i-^)  { 
v_iocate(0 , i . 0 ) ; 
v_wca(0,  OxbO,  watrib,  80); 

} 

v_hidec ( ) : 
wn_init ( ) ; 


/*  set  up  Frame  Grabber 
/*  blank  out  filename  */ 
f*  use  date/time  for  session  */ 
;f*  window  attribute  */ 

/*  build  the  back  drop  */ 

/*  position  cursor 
/*  the  fast  way  */ 

/*  hide  the  cursor  */ 

/*  save  entry  screen  */ 
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/* 

*  Popup  Menu 
^1 

do  { 

watrib  “  WHITE«^  I  BLACK ;  /*  window  colors  */ 

batrib  =  blue<<^ | WHITE ;  /*  border  colors  */ 

if(  (!DO__SE0)  II  ( rv  <  3)  jj  rerr  )  /*  popup  menu  to  get  user  choice  */ 
rv  *  wn_popup( 0.3.23,31,17, watrib , bat rib.&smenu, FALSE ) ; 


else  { 

rv+'»- ; 

if  Crv  >  5)  rv  =  0; 

} 

crystaK  ) ; 
switch  (rv)  { 
case  1: 

rerr  =  setup( ) ; 
break ; 
case  2; 

rerr  =  acquire ( ) ; 
break ; 
case  3: 

rerr  =  clipmain( ) ; 
break : 
case  4 : 

rerr  *  tagraain( ) ; 
break ; 
case  5 : 

rerr  =  sizemainC ) . 
break ; 
case  6: 

rerr  =  analyze ( ) ; 
break ; 
case  99; 
default 

rerr  *  1; 
break ; 

}  !*  end  switch  */ 

)  while(rv  !*99)  ; 
wn_exit( ) ; 

_clearscre©n(_GCLEARSCREEN) ; 
printf ("NnNnNnNnVtSession' s  Activities  have  been  recorded  in  2s” , session ) ; 
printf  ('’\n\n\tSEMEX  was  on  for  2.  If  minutes.". 

(float)  (clockC)-start)  /  (float)  (CLK^TCK  *  (docket)  60)  ); 
printf (’'\n\n\tDeveIoped  by  ECE  Dept,  Naval  Postgraduate  School"); 
printf ("\n\n\tHave  A  nice  day ! \n\n\n" ) ; 
if((  fp  •  fopen(session , "a" ) )  “=  NULL) 

printf ( "a\n\n\Unable  to  open  session  file  2s\n\tS£MEX  Aborted.",  session); 
else  { 

fprintf (fp, "\nSEMEX  was  on  for  2. If  minutes.", 

(float)  (clock(  )-start)  /  (float)  (CLK_TCK  *  (docket)  60)  ); 

fcLose(fp) ; 

}  /*  if-else  */ 

exit(O);  /♦  Successful  termination  */ 


/*  auto  sequence  */ 

/*  get  next  menu  list  */ 

/*  end  of  menu  list  */ 

/**  set  to  internal  sync  */ 
/*  do  user  command  */ 

/*  setup  configuration  */ 


[*  Acquire  Image  */ 

/*  Clip  Image  */ 

/*  Feature  Tagging  */ 

/*  Feature  Sizing  */ 

Analyse  Feature  data  */ 

/*  error  or  ESC  key  */ 


/*  restore  entry  screen 
/*  dear  screen  */ 
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/ 

*  Initial  PCVISIONplus  Frame  Grabber  setup  (Refer  to  global. h  for  definesj 


void 

fginit(void) 

{ 

s  e thdw  C  RFGBASE , MFMBASE . MEMORY ) ; 

setdimCXSIZE, YSIZE,DEPTH) ; 

fgon(  )  : 

initialize(  )  ; 

setcamer a( 0 ) ; 

extsync ( ) ; 

waitvbC ) ; 

seIect_memCMEM_A) ; 
dispIay_mem(MEM_A^ ; 
s clear (GRAY ) ; 
setIutCINLUT.O)  ; 
setlut(GRNLUI.O) ; 

} 

/’^  session_name(  )  gets  the  current 
*  filename 


Set  hardware  definitions  */ 

I*  set  frame  dimensions  '*' ! 

/*  turn  on  frame  grabber  */ 

/*  set  up  registers  and  LUTs  */ 

/*  Select  C<imera 

Use  Camera  video  sync  */ 

!*  sync  to  vert -cal  blanking  */ 

/'■  Select  frame  A  */ 

{*'  display  frame  A  *f 
/*  clear  whole  TV  screen  */ 

I*  Use  INPUT  LUT,  bank  0  */ 

/*  Use  GREEN  OUTPUT  LUT.  bank  0  */ 


date  and  time  and  creates  a  session 


void 

session  name(void) 


struct  dosdate^t  date; 
struct  dostime_t  time; 
static  char  *month(12]  = 


“Jan"  . 
“Jul". 


/*  dos.h  date  structure  */ 

/’'  dos.h  time  structure  **/ 

“Feb".  “Mar",  "Apr",  "May",  “Jun" , 
Aug",  “Sep“.  “Oct",  "Nov”.  "Dec”  }; 


_dos_getdate  (&date) ; 
_dos_gettime  (&time); 
if  (date. day  <  10) 

sprintf(session.”23s021d.s€s 

else 

sprintf (session. ”23s22d. ses 
if  (  ( f p  *  fopenCsession . "a” ) ) 


/*  get  current  date  */ 

/*  get  current  time  */ 

/*  single  digit  date,  pad  zero  */ 

” .month (date. month  -  1].  date. day); 
/*  double  digit  date  */ 

" .month (date. month  -  1),  date. day): 

-  NULL)  { 


printf (''a\n\n\Unable  to  open  session  file  2s\nSEMEX  Aborted." 
exit;  /*  terminate  */ 


session) : 


} 

else  { 

if  (time. minute  <  10)  /*  single  digit  minute,  pad  zero  */ 

fprintf(fp,  "\nOpening  Session  on  22d  Z3s  Z<id  at  Z2d;0Zld.", 

date. day,  month ( date .month  -  1),  date. year,  time. hour,  time. minute) 
else  f*  double  digit  minute  */ 

fprintf (fp, "\nOpening  Session  on  Z2d  Z3s  Z4d  at  Z2d:Z2d.”, 

date. day,  month ( date .month  -  II,  date. year,  time. hour,  time. minute) 

fprintf  (fp,  '’\n - -  '  - - -\n") ; 

fclose(fp):  /*  close  session  file  */ 

) 


/*  End  of  file  SEMEX.C 
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FILENAME:  SETUP. C 

*•  CALLED  BY;  semex()  and  calls  clip() 

*  LAST  MODIFIED:  12  Mar  91  by  LEE  YEAW-LIP 


PURPOSE:  Setup  is  used  to  set  up  the  SEMEX  program  to  configure  it 
*’  to  suit  the  user's  needs.  Various  prcmpts  can  be  turned  on 

or  off  to  stream-iine  the  processing  oi  SEMs . 

*'  It  changes  the  set  of  global  variables  ind  flags  which  the 

various  functions  in  SEMEX  make  use  of,  or  test  for. 

^  Latest  modification  incorporates  check_equipnient  which 

"  facilitates  the  Setup  of  the  light  table  and  camera. 

measure_line ( )  has  also  been  added  to  determine  the 
'''  magni f- cation  of  the  image. 


f»inc  lude  "global .  h" 

»<inc lude  <:string.h^ 

seLup( ) 

extern  void  booI2YN(int,  char  ** ) 
extern  void  check_equipment(void 
WINDOWPTR  wn; 

WIFORM  frm; 

int  watrib,  batrib; 

unsigned  fatrib; 

static  char  *emsgl  *  "Only  range 

static  char  *emsg2  =  "Only  range 

static  char  *emsg3  *  "Only  range 

static  char  *€msgA  “  "Only  range 

static  char  *emsg5  •  "Only  range 

char  bOtS] ,  bl[3] ; 

char  b2[5] .  b3[3] ; 

char  bA  t  5] ,  bS [3 1 ; 

char  b6[5]  .  b7[31 ; 

char  b8C9I ,  b9f3J ; 

char  bl0[5] ,  bll(5] .  bl2[3] ; 

char  bl3[61 .  bl4[3] ; 

char  bl5[3].  bl6[3],  bl7[3J.  bl8 

char  bl9(3] ,  b20[31 ; 


;  /•  prototype  declaration  ** / 

) ;  /*  ditto  */ 

one  window  pointer  */ 

/*  form  pointer  *  I 
I*  window,  border  and  */ 

/*  field  attributes  */ 
of  0  to  100  allowed.  Press  any  key" 
2  to  256  allowed.  Press  any  key"; 

1  to  255  allowed.  Press  any  key"; 

0  to  255  allowed.  Press  any  key". 

256  to  512  allowed.  Press  any  key  ; 
/*  string  buffers  *{ 
f*  ditto  */ 

/*  ditto  */ 

/*  ditto  */ 

/*  ditto  */ 

/•  ditto  */ 

/*  unused  at  the  moment  */ 
[3];  /*  Y/N  input  buffers  */ 

/*  ditto  */ 


Check_^Equipcnent( ) ;  /*  check  camera  and  lights  */ 

fatrib  -  (BLUE«<i)  |  WHITE  |  BOLD;  /*  field  color  */ 

watrib  -  v_setatr (WHITE , BLUE , 0 , 0 ) ;  /*  window  color  */ 

batrib  -  v_setatr (RED . WHITE . 0 , BOLD ) ;  /•  border  color  */ 

wn  *=  wn_open ( 500 . 1 , 5 , 60 . 19 .watrib , batrib ) ; 

if  ( !wn)  { 

printf("\a\n  Unable  to  open  window.  Aborting..."); 
exit( 1 ) ; 

} 

wn_title(wn,  SETUP  DEFAULTS  "  )  ; 

frm  “  wn_fnnopn(22) ;  /*  open  21+1  fields  */ 

if  ( ! frm)  { 

printf(”\a\n  Unable  to  open  form.  Aborting..."); 
exitC 1) ; 

} 

itoa(GAIN_LVL,b0. 10) ; 

wn_gint(SET  ,  frm,  0,wn,  2,  1,’'GAIN  LEVEL  ",  fatrib , 

&GAIN_LVL ,3,0, 100 , bO , emsgl , emsgl ) ; 
bool2YN(DF_GAIN.bl) ; 

wn_gbool(SET, frm,  l.wn,  2,30, "Use  Default[Y,N]  :  ", fatrib , 

&DF_GAI N . b 1 . NSTR , NSTR ) ; 
i toa ( OFFSET_LVL , b2 . 10 ) ; 

wn_gint(SET, frm.  2,vm,  3,  1, "OFFSET  LEVEL  ", fatrib , 

&OFFSET_LVL ,3,0, 100 , b2 . emsgl , emsgl ) ; 
boo 12YN ( DF_OFFSET , b3 ) ; 

wn_gbool(SET, frm,  3,wn,  3,30, "Use  DefauitlY.N]  ", fatrib, , 
&DF_OFFSET , b3 . NSTR . NSTR ) ; 
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itoa(LT_MARGIN,bi, ,  10)  ; 

wn_gint (SET , f rm,  A.wn,  4,  1,"LEFT  MARGIN  " , fatrib. , 

&LT_MARGIN  ,  3 , 0 , 511 ,  b4  ,  emsg*  ,  emsgi. ) ; 
boolZyN(DF_LM,b5) ; 

wn_gboolCSET, frm,  5,wn,  A, 30. "Use  Default[Y.N)  ”, fatrib, , 

&DF_LM,b5,NSTR,NSTR) ; 
itoa(RT_MARGIN,b6, 10)  ; 

wr,_gint(SET,  frm,  6,wn,  5,  1 ,  "RIGHT  MARGIN  ",  fatrib . 

&RT_MARGIN , 3 . 1 . 512 . b6 , emsgS . emsg5 ) : 
booi2YN(DF_RM,b7): 

wn_gbooi  C  SET  ,  f  rm,  7,wr.,  5,30, "Use  Default[Y.N]  ",  fatrib , 

&DF_RM . b7 , NSTR , NSTR ) ; 
sprintf (b8 , ":7 . 3f" . VSCALE) ; 

vm_gfloat(SET,frra,8,wn.  6.  1 , "Y-SCALE  FACTOR  :  ", fatrib , 

&VSCALE ,7,3,0.0.999.0,b8, erasgl . erasgl ) ; 
bool2YN(DF_VSCAI.E,b9)  : 

wn_gbool (SET , f rm ,  9,wn,  6. 30, "Use  DefaultlY.N)  :  ", fatrib, , 

SlDF_VSCALE  ,  b9  ,  NSTR ,  NSTR ) ; 
itoa(OVERSIZE,blO, 10)  ; 

wn_gint (SET . f rm, 10 , wn .  7,  1 , "Max  Feature  Size  ", fatrib. , 

&OVERSI2E,3,2.256,bl0.em5g2,emsg2): 
itoa (UNDERSIZE. bll , 10) ; 

wr'._gint  (SET  ,  f  rm.  1 1 ,  wn  ,  6,  1 ,  "Hin  Feature  Size  :  ",  fatrib, , 

&UNDERSIZE ,3, 1,255, bll. emsg3 , emsg3 ) ; 
bool2YN(DF_SIZE,bl2) : 

wr.  gbooKSET  .  f  rm ,  12  ,  *m  ,  8,30, "Use  Def  aults  [  Y .  N)  :  ",  fatrib  , 

&DF_SIZE. bl2, NSTR, NSTR) ■ 
booi2YN(HELP_LVl,,bl5)  ; 

wr._gbooI(SET ,  f rm.  13  ,  wn  .  10  ,  1 ,  "ALL  :  Enable  HELP  screens  (Y,N] 

fatrib, , &HELP_LVL , bl5 , NSTR, NSTR) ; 
booI2YN(DO_SEQ,bl6) ; 

wn_gbool(SET,frm,14.wn,ll,  1,"SEMEX:  CLIP,  TAG  and  SIZE  without  askinglY.N) 

fatrib, , iDO_SEQ, b 16 , NSTR, NSTR) ; 
bool2YN{DF_INVERf,bl7) : 

wn_gbool (SET , frm, 15 ,  wn , 12 ,  1, "ACQUIRE:  Complement  Image  without  askinglY.NJ: 

fatrib, ,&DF_INVERT,b 17, NSTR, NSTR): 
bool2YN(LOAD_RAW,bl8) :  ~ 

wn_gbool(SET , f rm , 16 . wn , 13 ,  l."CLIP:  Load  RAW  Image  without  asking[Y,N] 

fatrib, , SLOAD_RAW , b 1 8 , NSTR , NSTR ) ; 
bool2YN(LOADCLIP,bl9) : 

wn_gbool(SET, frm, 17 ,wn , 14 ,  1,"TAG:  Load  CLIPPED  Image  without  asking[Y,Nl 

fatrib. , &LOADCLIP,bl9, NSTR. NSTR) ; 
bool2YN(LOADTAG.ir20) : 

wn_gbool(SET,  frm,  18  ,wn,  15 ,  1,"SIZE:  Load  TA(3GED  Image  without  asking[Y,N] 

fatrib, .SiOADTAG, b20 , NSTR, NSTR) ; 

wn_gtext (SET , f rm, 19 , wn , 16 ,  1, "Session  Filename:  ", fatrib. 18 , session , NSTR , NSTR) : 
wndtext (SET , frm, 20 , wn, 18 , 1 , "Press  [Esc]  to  accept  Existing  defaults'): 

if ( ! wn_f rmget ( f rm) )  {  /*  read  form  */ 

printf  ("\a\nMeraory  corrupted.  Aborting  wn_frniget( )" ) ; 
exit(l) : 

) 

wn_frmcis(frm) :  /*  close  form  */ 

wn_close(wn) :  /*  close  window  */ 

return( 0 ) : 

} 

/- 

*  Convert  I’s  to  Y's  and  O’s  to  N’s 
*/ 

void 

bool2YN(int  n,  char  *s) 

if  ( n  ***  TRUE ) 
strcpy ( s , "Y" ) ; 
if  (n  -=  FALSE) 
strcpy ( s , "N  " ) : 
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"  FUNCTION  NAME:  check_equipment C ) 

PURPOSE  :  This  function  allows  setting  up  of  the  Light  table  and 
^  camera  prior  to  actual  acquisition  of  images. 

*  Afer  acquiring  a  test  image,  it  can  be  inverted  and 

^  clipped  to  ascertain  the  uniformity  of  illumination. 

^  A  graphic  cursor  facility  is  also  provided  to  measure 

*  various  features. 

ft  ftftft*ftftft***ftftftt***ft***'i*ft*ftftfttftft***ft********ft************t»*it**rti%****ft'ftft'ft 

void  check^equipcnenL C void ) 


extern  int  measure_l.ine (WINDOWPTR  w)  ; 

extern  int  clip{WINDOWPTR  w,  int  t); 

WINDOWPTR  wn; 

int  watrib,  batrib; 

unsigned  fatrib; 

char  c; 

int  1 : 

int  done ; 

int  gam,  offset; 


/*  function  prototype  */ 

/*  ditto  »/ 

/*  Window  handle  */ 

/"  Window,  border  and  */ 

/*  field  attributes  */ 

/*  scratch  for  user  response  */ 
/*  scratch  index  */ 

/*  scratch  flag  */ 

/*  gain  and  offset  setting  */ 


watrib  = 
batrib  “ 


_setatr(WHITE,BLUE,0,0) ; 
'setatr (RED .WHITE , 0 , BOLD) ; 


wn  “  wn_open C 500 , 8 . 13 , 50 , It .watrib , batrib) 
if  (  !  wn  )  { 

printf (  " \ a\n\n  Unable  to  open  window"), 
exit  ( 1 ) : 


/*  set  window  attribute  **/ 

/*  set  border  attribute  '•/ 

/*  open  dialog  window  »/ 


) 

wn 


(c 

*/ 


_title(wn, 
wn_printf (wn 
v_k  flush (  ) : 
c  =  getch( ) ; 
while  (  (c  !”  'n' )  && 

/*  Turn  on  camera 
wn_clr(wn) ; 
wn_title(wn, 
wn_puts(wn,2 
setcamera( 0 ) ; 
extsync ( ) ; 
grab(NO_WAIT) ; 
grab(NO~WAIT) : 

/*  Fine  tuning 
wn_puts (wn , 1 . 5 , " 
gain  “  GAIN_LVL; 
setgain(gain) ; 
v_kflush( ) ; 
wn_puts (wn , 7 , 1 , "Use  [ 
wn_puts (wn , 8,1, "Press 
wn_puts (wn ,2,1, "Gain 


EQUIPMENT  SETUP  " ) ; 
\n\n\tSet  up  camera  and 


lightsIYl  ?"); 


'=  'N' )  )  { 


SET  UP  CAMERA  AND  LIGHTS 
5. "Turning  on  GRAB  Mode.. 

/* 
/* 
/* 


empty  keyboard  buffer  ”/ 
get  user  response  "/ 
repeat  until  No  */ 

clear  window  •/ 

connect  camera  0  */ 
external  sync  */ 
ensure  grab  mode  ON  •/ 


the  board's  gain  and  offset  ' 
"  GAIN  AND  OFFSET  SETTING  "); 


/ 


/*  initial 
/*  prevent 
+1  and  [-]  keys  to  adjust' 
[ENTER]  to  continue"); 

(0  highest,  100  lowest);  ' 


gain  setting  */ 
spurious  input  */ 
); 


wn_printf (wn , "I3d" , gain ) ; 
while  (  (c»getch()) 


ENTER  ) 


{ 


wn_locate(wn , 2,31); 


(c  -=  ’+' 
gain 


if  ( 
gain 
if  (  (c  — 
gain  =  gain 
setgain(gain) 
wn_prlntf (wn , 


&& 

5; 

&& 

5; 


(gain 

(gain 


100) 


>  0)  ) 


increment  in  steps  of  5  */ 

decrement  in  steps  of  5  */ 
change  the  camera  gain  */ 


23d" , gain ) ; 


Update  new  gain  level  */ 
Use  default  gain  */ 


) 

GAIN_LVL  =  gain;  /* 

DF_GAIN  =  TRUE;  /* 

offset  =  OFFSET_LVL, 
setoffset(offset) ; 

wn_puts (wn , A , 1 , "Of f set  (0  darkest,  100  lightest):  "); 
wn_printf (wn , "23d" , of f set ) ; 
while  (  (c“getch())  !=  ENTER) 

{ 
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vm_locate (wn , A . 35 ) ; 

if  (  (c  ==  '+’)  &&  (offset  <  100)  ) 

offset  =  offset  5:  /*  increfnent  in  steps  of  5  */ 

if  (  (c  ==*-■)  &&  (offset  >  0)  ) 

offset  =  offset  -  5;  /*  decrement  in  steps  of  5  i 

setoff set ( of f set ) ;  /*  change  the  camera  offset 

wn_print-  f  (vm ,  "23d", offset); 


} 


} 

OFFSET_LVL  =  offset;  /•*  Update  new  offset  */ 

DF_0FFSET  =  TRUE;  /*  Use  default  offset  *! 

/*  Snap  a  frame  (this  will  stop  further  acquisition)  */ 
wn_titie(wn,  ■■  ACQUIRE  IMAGE  -  SNAP  MODE  "); 

done  =  FALSE;  /*  check  whether  image  snapped 

wn_c  Lr (wn  )  ; 

v_kfiush(),  I*  prevent  spurious  input  ’'/ 

wn_printf  (wn  ,  \n \n  \  tPress  [SPACEBAR]  to  snap  an  image"); 


wn_printf  (wn,  ■■\n\t  repeat  unti 
while  (  (c  =  getchC))  !=  ENTER) 
{ 

wn_puts  ( wn  ,  6  .  A  ,  "Wait .  .  .  "" ) ; 
w  a 1 tvb ( ) ; 
snap(WAlT ) ; 

wn^puts ( wn , 6 . A , "Done !  " ) ; 

wn_puts (wn , 12 . A , "When  done, 
done  -  TRUE; 

) 

if  ( ! done )  { 
waitvb( ) ; 
snap(WAlT) : 

} 

crystaK  ) ; 
setcamera ( 1 ) ; 
c  =  'Y' ; 

while  ((c  »=  *y')  11  (c  *=  *Y') 
vm_cir  (wn) ; 
if  <measure_line(wn ) ) 
return ; 

'^.printf (wn . " \n\n\ tMeasure 
v_kf lush( ) ; 
c  =  getch( ) : 

} 


satisfied” ) ; 


/**  Wait  for  vertical  blanking  ; 
f*  acquire  a  frame  *' ! 

press  [ENTERl"); 

I*  flag  that  image  taken  *' ! 


/*  Wait  for  vertical  blanking  *! 
Z'*  turn  grab  off  */ 

/*  internal  sync  for  stability  ^1 
/*  disconnect  camera  0  */ 

)  {  /*  repeat  */ 

/*  clear  screen  */ 

/*  measure  line  lengths  */ 

/*  error  detected.  Abort  */ 
another  feature  (N)?"); 

/*  empty  keyboard  buffer  */ 


wn__clr  (wn) ; 

f*  Complement  Image  in  frame  memory  */ 

v^kflushC);  /*  empty  keyboard  buffer  */ 

wn_printf  (wn ,  " \n\n\tComplement  Image  [Y]?*'); 
c  -  getchC ) ; 

if  (  <c*-'N’ )  &&  (ci^’n* )  )  { 

DF_INVERT  *  TRUE;  /*  Set  auto-invert  flag  */ 

wn_printf (wn. " \n\ tComplementing  Image 
complement ( IXS . lYS , NCOL , NROW ) ; 

} 

else 

DF_INVERT  *  FALSE;  /*  Reset  auto-invert  flag  */ 

/*  Threshold  image  */ 

wn_printf  (wn,  "\n\n\tUpdating  frame  memory...*'); 
maplut  ((jRNLUT ,  0 ,  IXS ,  lYS , NCOL , NROW) ;  /*  update  frame  memory  */ 
wn_clr(wn);  /*  clear  window  */ 

thresholdCGRNLUT.O, HIGHEST, HIGH);  /*  Initial  threshold  */ 

wn_printf(wn, '■\n\tReduce  to  guage  Lighting  Uniformity’’); 
clipCwn.HIGH) :  /*  threshold  image  */ 

wn_clr(wn);  /*  clear  window  *Z 

wn_printf  (wn , ’‘\n\n\ tAdjust  Lighting  and  Try  again{YJ  ?'*); 
v_kflush();  /*  cLear  keyboard  buffer  * f 

c  *  getch();  /*  get  user  response  ♦/ 

Iinlut(GRNLUT,0) :  /*  restore  LUT  */ 


}  /*  end  while  */ 
wn_close(wn) ; 
return ; 


all  done  ♦/ 
/*  return  */ 
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’*  FUNCTION  NAME:  measure^line (  ) 

*  CALLEP  BY:  check_equipr^ient (  ) 

LAST  MODIFIED:  7  Mar  91  by  LEE  YEAW-LIP 


PURPOSE:  This  provides  a  set  of  functions  for  generating  a  graphics 

■'  cursor  (cross-hair),  moving  it  around  with  the  directional 

*•  keys  and  drawing  vertical  and  horizontal  lines.  The 

*•  directional  keys  function  as  follows: 


Up 

Moves 

cross-hair 

up  one  pixel  at  a  time 

Down 

Moves 

cross-hair 

down  one  pixel  at  a  time 

Left 

Moves 

cross-hair 

left  one  pixel  at  a  time 

Right 

Moves 

cross-hair 

right  one  pixel  at  a  time 

Home 

Moves 

cross-hair 

left  in  steps 

•V 

End 

Moves 

cross-hair 

right  in  steps 

A 

PgUp 

Moves 

cross-hair 

up  in  steps 

PgDn 

Moves 

cross-hair 

down  in  steps 

Presently  step  size  is  20  pixels 

*  It  also  calculates  the  magnification  of  a  5  micron  line. 

iV  I 

/*'  ^nnclude  "global. h" 


#undef  UARROW 
^fundpf  DARROW 
■^Aundef  LARROW 
y/undef  RARROW 
ynindef  PAGEUP 
fhindef  PAGEDN 
^fundef  HOME 
yhindef  END 

Yfdefine  UARROW  0x^8 
y^define  DARROW  0x50 
^Adeline  LARROW  OxAb 
^;deEine  RARRCOW  Ox^d 
^i^define  PAGEUP  0x^9 
^Mefine  PAGEDN  0x51 
^define  HOME  0xA7 
^define  END  OxAf 
#define  STEP  10 

static  int  xpixval[9),  ypixval(9]; 
static  int  line(NROWI: 


/*  undefine  to  prevent  conflict  */ 
/*  ditto  */ 

/*  ditto  */ 

/*  ditto  */ 

/*  ditto  */ 

/*  ditto  */ 

/*  ditto  */ 

/*  ditto  */ 

/*  redefine  key  constants  */ 

/*  ditto  */ 

/*  ditto  •/ 

/*  ditto  */ 

/*  ditto 
/*  ditto  */ 

/*  ditto  */ 

/*  step  size  for  fast  move  */ 

/•  pixal  value  under  cursor  */ 

/*  allocate  memory  for  a  line  */ 


*  measure  a  line  marked  by  two  graphic  cursors 
*/ 

measure  line(WINDOWPTR  w) 


{ 


extern  void  put_cursor(int  x,int  y);  /♦  function  prototype  */ 

extern  void  unput_cursor ( int  x,int  y);  /*  ditto  */ 

extern  void  put_line(int  xl,int  yl.int  x2.int  y2);  /*  ditto  */ 

extern  void  unput^line ( int  xl.int  yl.int  x2,int  y2);  /*  ditto  */ 

extern  void  chkkeyCchar  c,  int  *x,  int  *y);  /*  ditto  */ 

extern  float  calc_line(int  xl.int  yl.int  x2,lnt  y2);  /*  ditto  */ 

char  c;  / 

65;  / 


int 


A70 .  y 


int  xl,  yl; 
float  len; 
int  color; 


scratch  for  key  pressed  */ 
initial  cursor  location  */ 
/♦  store  1st  point  on  line  */ 
/*  length  of  line  */ 

/*  pixel  color  •/ 


vkflushC);  /*  prevent  spurious  inputs  */ 

wn_printf  (w, '■  \n\n\tLine  Measure  Feature’*); 

wn_pr  intf  (w, '■  \n \n\ tPosition  cursor  at  first  point'*); 

wn  printf (w,  ■’\n\tusing  ARROW  keys.  Press  [ENTER)  when  done\n"); 

put_cursor(x,y ) ;  /*  put  cursor  at  the  center  */ 

wn_printf  (w,  ■■\r\tCoordinates :  XI:  Z3d  Yl:  Z3d",  x.y); 

while  (  (c  *=  getchC))  **  ’\0')  (*  if  cursor  direction  key  */ 
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} 


{ 

c  =  getch( ) ; 
unput_cursor(x.y) . 
chkkey ( c .  .  &y ) ; 

put_cursor ( x , y ) ; 
wn_printf (w, " \r\tCoordinates ; 

}  !*  end  while  *l 
xl  *  X ; 
yl  =  y; 

put^line  (xl .  yl .  X  ,  y  ■;  ; 

I*  second  point  on  the  line  */ 

wr.__printf  (w,  ”\n\n\tStretch  line  to 
wn__printf  (w,  ”\n\tusin6  ARROW  keys, 
while  (  (c  =  getchC))  ==  '\0’) 


check  direction  */ 

/*  remove  old  cursor  */ 

f*  put  cursor  back  on  */ 

XI:  23d  Yl:  23d-.  x,y); 

/*  save  1st  point  */ 

/*  put  out  a  line  */ 

second  point”); 

Press  [ENTER)  when  done\n"); 

/*  if  cursor  direction  key  */ 


{ 

c  =  getch( ) : 
unput_line (xl , yl 
unput^cursor (X . y 
chkkey (c,  &x,  &y 
put_cursor(x.y) ; 
put_line(xl,yl.x 
wn_printf (w, "Vry 
}  I*  end  while  */ 
len  =  calc__line ( xl ,  y 
wn_printf  (w.  ■■\n\n\tF 
if  ( len  ^  0.0)  ( 

VSCALE  =  len/ 5.0 
wn^printf (w . ” \n\ 
wn_printf (w. " \n\ 
if  ( (  fp  *  fopen 
wn_printf (w. 
wn_printf (w, 
getchC ) ; 
retumC  1 ) ; 

} 


I*  check  direction  */ 

,x,y);  /*  remove  old  line  */ 

);  /*  remove^ cursor  */ 

);  /*  get  new  cursor  position  *! 

f*  put  cursor  back  on  */ 

.y);  /*  put  new  line  */ 

tCoordinates -.  X2;  23d  YZ:  23d’'.  x.y)  ; 

l.x.y):  /*  calculate  distance  */ 

eature  is  2. If  pixels  long.",  len); 

/*  compare  with  5  micron  ref 
/*  to  give  Pixel  Conversion  Factor 
tFor  5  micron  vertical  line,*'): 

tVertical  Scale  factor  is  2.4f  pixels/micron" , VSCALE) ; 
( session , "a”  )  )  “=  NULL)  { 

’‘\a\n\n\tCANNOT  open  session  file  2s” , session ) ; 
”\n\n\tPress  any  key  to  continue”); 

/*  premature  termination  */ 


else  ( 

fprintf (fp. ”\nSETUP: \tMeasured  length  is  2. If  pixels  long" . len) ; 
fprintfCfp. ''\n\tVertical  scale  factor  is  2.4f  pixels/micron" , VSCALE) 
fclose(fp);  /*  close  session  file  */ 

}  /*  end  if-else  */ 

wn_pcintf (w. " \n\n\tPress  Any  key  when  done 

v_kflush();  /♦  empty  keyboard  buffer  */ 

getchC ) ; 


} 

unput__line(xl  ,yl  ,x  ,y ) ; 
unput_cursor (x.y) ; 
retumCO )  ; 


/*  remove  line  */ 

/♦  remove  cursor  */ 
/*  everything  OK  */ 


/* 

*  Put  out  a  cross-hair  graphic  cursor  at  location  x.y,  saving  the 

*  pixels  under  the  graphic  cursor.  The  intensity  of  the  cursor 
Will  be  peak-white  or  peak-black  depending  on  the  pixel  intens  ity 

*  if  the  center  point. 

void 

put^cursor ( int  x.int  y) 

{ 

int  i ; 
int  xl.  yl; 
int  color; 


/*  scratch  counter  */ 

/*  cursor  pixel  counters  */ 
/*  pixel  color  */ 


xl  •  X  -  4 ; 
yl  *  y  -  A; 

/*  save  pixels  under  the  cursor 
for  (  i  -  0;  i  <  9;  i++)  { 

xpixvaKi]  *  rplxel (xl+i  , y ) ; 
ypixval[i)  *  rpixel(x.yl+i ) ; 


/*  get  the  left  position  */ 
/*  get  the  top  position 


/*  save  pixel  value  */ 
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if  (rpixeL(x.y)  >  GRAY) 
color  =  BLACK_LEVEL; 

else 

color  =  WHITE_LEVEL: 

/*  put  out  the  cursor  */ 
for  (  1=0;  i  <  9;  i++  )  { 
wpixel(xl+i,y, color ) ; 
wpixel(x,yl+i. color) ; 

} 

} 


/*•  enhance  visibility  */ 
/*  of  cursor  */ 


/*  draw  horizontal  */ 
f*  draw  vertical  */ 


I* 

*  Restore  image  to  original  state  without  cursor 
*! 

void 

unput_cursor ( int  x.int  y) 


int  i ; 
int  xl .yl : 


/*»  scratch  counter  */ 

/*  cursor  pixel  counters 


xl  =  X  “  ^ : 
yl  =  y  - 

for  (  1  “  0;  1  <  9;  i-*"*-  )  { 

wpixeKxl-^i  ,y.  xpixval  [  i  ]  ) ; 
wpixel  ( X  ,y  ,  ypixval  [  i  ]  )  ; 


/*  get  left  position  **/ 

I*  get  top  position  */ 

/*  restore  horizontal  strok 
/*  restore  vertical  stroke 


*  check  key  pressed  for  direction 
*/ 

void 

chkkeyCchar  c,  int  *x,  int  *y) 

{ 

switch  (c)  { 

case  UARROW:  /*  move  up  */ 

(*y)— ; 

if  ((*y)  <  IfS)  (‘y)  -  LASTROW;/*  wrap  round  */ 
breaR ; 

case  DARROW:  /*  move  down  •/ 

(•y)++; 

if  <(*y)  >  LASTROW)  (*y)  -  IYS;/«  wrap  round  */ 
break ; 

case  LARROW:  /*  move  left  •/ 

(*x)— ; 

if  ((*x)  <  IXS)  ('x)  -  LASTROW;/*  wrap  round  •/ 
break ; 

case  RARROW:  /*  move  right  •/ 

(•x)++; 

if  ((*x)  >  LASTCOLl  {*x)  -  IXS;/*  wrap  round  */ 
break ; 

case  PAGEUP;  /*  move  up  fast  */ 

(*y)  —  STEP; 

if  ((*y)  <  ITS)  (*y)  -  LASTROW;/*  wrap  round  */ 
break ; 

case  PAGEDN:  /*  move  down  fast  */ 

(*y)  +-  STEP: 

if  ((*y)  >  LASTROW)  {*-/)  -  lYS;/*  wrap  round  */ 
break ; 

case  HOME:  /*  move  left  fast  */ 

(*x)  —  STEP; 

if  ((*x)  <  IXS)  (*x)  -  LASTROW;/*  wrap  round  */ 
break  ; 

case  END:  /*  move  right  fast  */ 

(*x)  +-  STEP; 

if  ((*x)  >  LASTCOL)  (*x)  -  IXS;/*  wrap  round  */ 
break ; 
default : 

break ; 
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)  /*  end  switch  */ 

) 


*  calculate  the  distance  between  two  points 
f  loat 

calc_line( int  xl.int  yl,int  x2.int  y2 ) 

{ 

if  (  abs(x2  -  xl)  >  abs(y2  -  yl)  )  /*  horizontal  line  *! 

returnC  absCx2-xl)  ); 

else  /*  vertical  line  */ 

returnC  abs(y2-yl)  ): 


*'  draw  a  vertical  or  horizontal  line 
*  saving  the  image  pixels  underneath 
"/ 

void 

put_line(int  xl.  int  yl,  int  x2 .  int  y2) 

int  1  ; 

int  color 

if  (rpixeKxl.yl)  >  GRAY) 
color  “  BLACK_LEVEL ; 

else 

color  -  WHITE_Li:VIl, 
if  (  abs(x2  -  xl)  >  abs(y2  -  yl)  )  ( 
if  (x2  >  xl)  { 

for  (i  =  xl;  i  <=  x2;  i++)  { 
lineU'xll  ■=  rpixeK  i  ,yl) ; 
wpixeKi.yl, color); 

) 

} 

else  { 

for  (i  «=  x2;  i  >=»  xl;  1++)  { 
line[i-x21  ■  rpixeK i  , yl ) ; 
wpixeK  i  ,yl ,  color) ; 

} 

}  /•  end  if(x2  >  xl)-else  */ 

} 

else  { 

if  (y2  >  yl)  { 

for  !i  -  yl;  i  <=  y2;  i++)  ( 
line(i~yll  ”  rpixeKxl ,  i  ) ; 
wpixel (xl , i , color ) ; 

) 

> 

else  { 

for  (i  •  y2;  i  yl;  i-t+)  { 
line[i-y2J  •  rpixeKxl ,  i  ) : 
wplxeKxl ,  1 ,  color  )  ; 

) 

)  '*  end  if(Y2  >  yl)-else  •/ 

)  /*  end  if(abs<x2  -xl))-else  */ 


/' 

*  erase  a  vertical  or  horizontal  line 

*  restoring  the  image  pixels  underneath 
‘/ 

void 

unput_line( int  xl,  int  yl,  int  x2,  int  y2) 

{ 

int  i;  /*  scratch  counter  */ 

if  {  abs(x2  -  xl)  >  abs(y2  -  yl)  )  {  /•  erase  horizontal  line  */ 


/*  enhance  visibility  */ 
/*  of  line  */ 


/*  draw  horizontal  line  */ 

/*  draw  left  to  right  */ 

/*  save  pixel  values  */ 

/*  before  overwriting  */ 


/*  (x2  <  xl) 

/*  draw  right  to  left  */ 
/*  save  pixel  values  */ 
/*  before  overwriting  */ 


/*  draw  vertical  line 

/*  draw  top  down  */ 

/*  save  pixel  values  */ 
/*  before  overwriting 


/*  (y2  <  yl)  */ 

/*  draw  bottom  up  */ 

/*  save  pixel  values  ♦/ 
/*  before  overwriting  */ 


/**  scratch  counter  *l 
/*  line  color  */ 
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if  (x2  >  xl)  { 

for  (1  =  xl;  1  <=  x2;  i++) 
wpixel(i.yl.line[i-xll); 

) 

else  { 

for  (1  =  x2:  i  <=  xl; 

wpixeK  1  .yl .  line  I  i-x21 ) ; 

)  /*  end  if (x2>xl )-else  "/ 

else  { 

if  (y2  >  yl)  { 

for  (i  =  yl;  i  <=  y2;  i++) 
wpixeKxl .  1 ,  line!  i-yl!  ) 

) 

else  { 

for  (i  =  y2;  i  1 ;  i++) 

wpixeKxl ,  i  .  line  [  i-y2] ) ; 

}  /*  end  if (y2>yl)-else  */ 

>  /*  end  if(abs(x2-xl) )-eise  */ 


/*  erase  left  to  right  "/ 

/*  by  restoring  original  values 

/*  Cx2  <  xl)  */ 

/*  erase  right  to  left  */ 

/*  by  restoring  original  values 


/*  erase  vertical  line  */ 

/*  erase  top  down  */ 

/*  by  restoring  original  values 

/*  (y2  '  yl)  */ 

erase  bottom  up  */ 

/*  by  restoring  original  values 


End  of  file  SETUP. C  */ 
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FILENAME  :  ACQUIRE. C 

called  BY;  SEMEX  main  program 

LAST  MODIFIED:  17  Mar  91  by  LEE  YEAW-LIP 

PURPOSE  ;  This  function  allows  images  to  be  acquired  from  the 

PCVISIONplus  framegrabber  board.  Afer  acquiring  a  frame, 
the  image  can  be  cropped  and  inverted  if  desired  before 
It  is  saved.  Values  applied  to  the  image  are  saved  in 
a  session  file  as  well  as  in  the  comment  line  of  the  image 
header . 


f*:r.^'lude  "global. h" 
»*:r.clude  <string.h''* 


/*  Necessary  defines  *' ! 
string  prototypes  */ 


Acquire  image  from  camera,  invert,  crop  and  then  save  it 

*v ! 

acqui re ( ) 


WINDOWPTR  wn; 
int  watrib,  batrib. 
unsigned  fatrib, 
char  c ; 
char  s5r5] ; 

1  n  t  1  ; 
int  no cam, 

:nt  Im.  rm; 

int  gam,  offset; 


/*  window  handle  **/ 

!*•  Window,  border  and  *'/ 

!*•  field  attributes  *'/ 

/*•  scratch  for  user  response  *' i 
/*  scratch  string  */ 

/•  scratch  index  "*/ 

/*  flag  indicating  camera  off  , 
!*'  left  and  right  margin  setting 
/*  gain  and  offset  setting  ■"/ 


watrib  *  v  setatr (WHITE . BLUE , 0 . 0 ) ;  f*  set  window  attribute  */ 

batrib  *  v_setatr (RED .WHITE . 0 , BOLD) ;  /*  set  border  attribute  *  I 

wn  *  wn_open( 500 . 8 . 13 . 50 . 14 .watrib . batrib) ;  /*  open  dialog  window  */ 
if  ( ?vfn)  { 

printf  ( ■■  \a\n\n  Unable  to  open  window"); 
exit( 1) i 

} 

/* 

*  Read  in  an  image  or  turn  on  camera 
*/ 

wn_title(wn,''  IMAGE  ACQUISITION  " ) ; 

wn^printf  (wn.  "VnVnMRead  Image  from  file  IN)?'*); 

v^kflushC);  /*  empty  keyboard  buffer  first  */ 

c  »  getchC);  /*  get  user  response  */ 

1 f  (  ( c  -=  ■ Y ’ )  I  I  ( C  -=  ■ y • )  )  { 

getim(wn.O);  /*  read  image  from  file  */ 

nocam  “  TRUE;  /*  Note  camera  is  off  */ 


else  { 

wn_puts ( wn , 2 . 3 . "Turning  on  GRAB  Mode...  ”); 

setcamera ( 0 ) ;  /*  connect  camera  0  */ 

extsync();  /*  external  sync  */ 


gr6b(N0_^WAlT) 
grab(NO_WAlT) 
nocam  •  FALSE 


/♦  ensure  grab  mode  ON  */ 


/*  camera  on  flag  */ 


Fine  tuning  the  board’s  gam  and  offset. 


wn_title(wn."  GAIN  AND  OFFSET  SETTING  ”); 
gam  “  GAIN_LVL; 

setgam(gain ) ,  /*  initial  gain  setting  */ 

wn_puts  (wn  ,  7  .  1 .  "Use  and  [~I  keys  to  adjust"); 

wn_puts (wn . 8 . 1 , "Press  (Enter)  to  continue"); 
if  ('DF_GAIN)  { 

wn_puts (wn . 2, 1 . "Gain  (0  highest.  100  lowest):  "); 
wnjprintf (wn , "ISd” , gain ) ; 
while  (  (c-getchC))  ENTER  ) 
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wn_locateCwn ,2,31) ; 

if  (  (c  «=  '+')  &&  (gain  <  100)  ) 

gain  ”  gain  +5;  /*  increment  in  steps  of  5  */ 

if  (  (c  --■-')  &&  (gain  >  0)  ) 

gain  “  gain  -  5;  /*  decrement  in  steps  of  5  */ 

setgain(gain) :  /*  change  the  camera  gam  */ 

wn_printf  (wn ,  '*Z3d",gain): 

) 

GAIN_LVL  =  gain;  /*  update  global  gain  value  */ 

> 

offset  -  OFFSET_LVL; 
setoff set ( of f set ) ; 
if  (!DF_0FFSET)  { 

wn_puts (wn , A , 1 , "Of f set  (0  darkest,  100  lightest):  "); 
wn_printf(wn, "Z3d" , offset) ;  /*  display  current  offset  */ 

while  (  (c-getch())  !=  ENTER)  { 

wn_locate ( wn , A , 35 ) :  ^ 

if  (  (c  ==  •+')  &&  (offset  <  100)  ) 

offset  =  offset  +  5;  /*  increment  in  steps  of  5  */ 

if  (  (c  ■==  '-')  &&  (offset  >  0)  ) 

offset  =  offset  -  5;  /*  decrement  in  steps  of  5  */  e 

setoff5et(of fset) ;  /*  change  the  camera  offset  */ 

wn_printf(wn, "ZOd" , offset ) :  /*  display  new  offset  */ 

} 

OFFSET_LVL  =  offset;  /"  update  global  offset  value  "/ 

) 

)  /*  end  if-else  */ 

/* 

*  Snap  a  frame  (this  will  stop  further  acquisition). 

*/ 

if  ( Jnocam) 

wn_title(wn, "  ACQUIRE  IMAGE  -  SNAP  MODE  " ) : 
while(l)  { 

int  done  -  FALSE;  /*  check  whether  image  snapped  */ 

wn_clr(wn) ; 

if  (Inocaira)  {  /*  using  camera  */ 

v_kfiush();  /*  clear  keyboard  buffer  */ 

Kn_printf (wn, " \n\n\tPress  [SPACEBAR]  to  snap  an  image"); 
wn_printf (wn, "\n\t  repeat  until  satisfied"); 
while  (  (c  -  gotchO)  !-  ENTER)  { 
wn_puts(wn, 6 , A , "Wait ..."); 

waitvb();  Walt  for  vertical  blanking  */ 

snap(WAIT);  /*  acquire  a  frame  */ 

wn_puts (wn , 6 , A , "Done !  "); 

wn_puts (wn. 12, A , "When  Satisfied,  press  [Enter]"); 
done  “  TRUE;  /*  flag  that  image  taken  */ 

}  /*  end  while  */ 
if  ( !done)  { 

waitvb();  /*  Wait  for  vertical  blanking  */ 

snap(WAIT);  /*  turn  grab  off  •/ 

)  /*  end  if  (done  */ 

crystalO;  /•  internal  sync  for  stability  */ 

setcamerad) ;  /*  disconnect  camera  0  */ 

]  /♦  end  if  Inocam  */ 

/*  Clear  unwanted  areas  */ 
wn_clr(wn) ; 

wn_printf (wn , " \n\n\ tPress  [SPACEBAR]  to  crop  image");/*  line  2  */  4 

wn_printf (wn , " \n\ t  one  vertical  line  at  a  time"); 
if  (DF_LM)  { 

if  (  LT_MARGIN  >  IXS  )  {  /•  auto  crop  left  margin  */ 

wn_printf (wn, "\n\tCropping  left  edge..."); 
for  (i  -  IXS;  i  <  LT_MARGIN;  i++) 
vlcloar(i,IYS, NROW , BLACK_LEVEL ) ; 

} 

Im  •  LT_MARGIN; 

} 

else  [  /*  let  user  crop  left  margin  */ 

Im  -  IXS;  /*  start  from  left  edge  */ 

¥m_puts (wn, 5 , 2 , "Left  margin:  ");  /*  line  5  */ 
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v_kfiush();  /*  clear  keyboard  buffer  ”/ 

vm_pr int f ( vm  .  ' \n \n \ tWhen  done,  press  [Enter]");  /*  line  7  */ 
while  C  (c  =  getch())  !=  ENTER)  { 

vie  lear  ( Im .  I YS  ,  NROW ,  BLACK  LEVEL);  /*  clear  one  vertical  line  ’'/ 


wn_locate ( wn . 5 , 15 ) ; 
wn_printf (wn , "23d ",1m);  /* 

If  (Im  >=  RT_MARGIN)  f* 

break  ;  /  * 

else 

lm+-+ ; 

}  /*  end  while  *•  / 

LT_MARGIN  =  Im;  f* 

}  /  end  if-else  */ 

If  CDF_RM)  { 

if(RT_MARGIN  <  NCOL)  {  I* 

wn_printf  ( wn ,  \n\ tCropping  right  edge, 
for  (i  =  NCOL;  i  >  RT_MARGIN;  i  —  ) 
vie lear ( i , I YS . NROW , BLACK_L£VEL ) ; 
rm  -  RT  MARGIN; 


/’*  line  5  */ 

display  current  left  margin 
right  edge  reached 
stop  */ 

/*  do  next  line  */ 

/*  update  global  */ 


auto  crop  right  margin  **/ 
■'); 


} 

} 

else  {  I* 

rm  =  NCOL ; 

v_kfiushC )  ;  I* 

wTi_puts  ( wn  ,  5 , 2  .  "Right  margin  : 
wri_printf  (wn  ,  "  \n\n\tWhen  done 
while  (  (c  *  getchC))  *=  ENTER)  { 
vlclear(rm,0, NROW . BLACK_LEVEL) ; 
wn_locate( wn . 5,16); 
wn_printf  ( wn  .  "23d"  ,  rm) ;  !*’ 

if  (rm  <=  LT_MARGIN) 

break ;  /* 

else 


let  user  crop  right  margin 

clear  keyboard  buffer  "/ 

■■ ) ;  /*  line  5  *l 

press  [Enter]");  f*  line  7  */ 

/*  clear  one  vertical  line 
/*  line  5  ’^/ 
display  right  margin  *' ! 
left  edge  reached  */ 
stop  */ 


rm — ; 

)  /*  end  while  */ 

RT_MARGIN  *=  rm; 

}  /*  end  if-else  */ 

If  (  (!DF_LM)  &&  (!DF_RM)  )  { 

wn_printf (wn , ” \n\n\ tSatisf ied 
v_kflush( ) ; 
c  -  getch( ) ; 

if  (  c  'N'  &&  c  !-  'n'  ) 

break ; 

/*  prepared  to  redo  •/ 
if  (nocam) 

initluts( ) ; 
else  { 

setcamera(0 ) ; 
extsync ( ) ; 
waitvbC ) ; 
grab(NO__WAIT) : 
SrabCKO_WAIT) ; 

}  /*  end  if-else  */ 


/*  do  next  line  */ 
/*  update  global  */ 


th  result  (Y)?”);/*  line  9  */ 
I*  clear  keyboard  buffer  */ 

/*  get  user  response  */ 

/*  not  no 

/*  done,  get  out  of  loop  */ 


/*  restore  image  */ 

/*  connect  camera  0  */ 

/*  external  sync  */ 

/*  ensure  grab  mode  ON  */ 

restore  image  and  start  over 


else 

break;  /*  get  out  of  while  loop  */ 

)  /*  end  whiled)  */ 
wn_clr(wn) ; 

/*  Complement  Image  in  frame  memory  */ 
if  (DF_INVERT)  { 

wn_pr  intf  (wn ,  "  \  n]  tComplementing  Image  ...■'); 
complement  C IXS , lYS . NCOL . NROW ) ; 

} 

else  { 

wn_printf (wn , " \n\n \ tComplement  Image  (YI?"); 

v_kflush(),  /*  clear  keyboard  buffer  */ 

c  «  getch( ) ; 

if  (  (c!-*N' )  &&  (c!='n' )  )  { 

wn_printf (wn. ”\n\tComplementing  Image. . . "); 
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complement C IXS, lYS.NCOL.NROW) ; 

} 

}  /■>  end  if-else  */ 

/  *1 

"  Save  image 
*/ 

wn_printf  (vm,  ■■\n\n\tUpdating  frame  memory..."); 
mapIutCGRNLUT, 0 . IXS. lYS.NCOL.NROW) ;  /*  update  frame  memory  */ 

V  kflushC);  /*  clear  keyboard  buffer  */ 

wn_pr intf (wn . " \n\n\ tSave  image (Y ]  ?" ) : 
c  =  getch  C ) ; 

1  f  (  (  c  !  =  '  n  *  )  &&  ( c  !  =  '  N '  )  ) 

putim(wn.O);  /*  Save  image  with  . img  extension  */ 

*  Update  session  file 

*  / 

wr._printf  (wn,  ”\n\n\tUpdating  session  file..."); 
if  ((  fp  =  fopen(session, "a” )  )  ==  NULL)  { 

wn_pr int f  ( wn ,  \  a \n \n\ tUnable  to  open  session  file  2s”  .  session ) ; 
wn^printf  (wn  ,  \n\n\ tPress  any  key  to  continue*'); 
getchC ) ; 

} 

else  { 

if  (nocam) 

fprintf  (fp.  ■■\nACQUIR£:  Image  read  from  Filename:  Zs"  ,  f i lename ) ; 
else  { 

if  (  c  !=  'n'  &&  c  !=  *N’ ) 

fprintf(fp.”\nACOUIRE;  Image  saved  to  Filename;  Zs” . filename) 
}  /*  end  if-else  */ 

fprintf ( fp \n  Comment;  Zs” , comiine) ; 

fclose(fp);  /*  close  session  file  •/ 

}  /*  end  if-else  */ 
wn_close(wn) ; 
return( 0 ) ; 


end  of  file  ACQUIRE. C  */ 


•*tV»A'#«****-hf*y»-*»y»*<f«f*f*y»*f»*'**f»*y**'yj-(»f»****f«*'fi***Vl*#l********'h**y»*****AA*»VrtrtVrrt 

FILENAME  ;  CLIP.C 

CALLED  BY;  semex  mainC)  and  calls  ciipcnainC) 

LAST  MODIFIED  :  12  Mar  91  by  LEE  YEAW-LIP 


FLTRPCSE  :  This  program  clips  (thresholds)  the  image  on  screen  by 

taking  an  operator  input  value  and  forcing  all  image  pixel 
values  above  the  threshold  value  to  BLACK_LEVEL  and  those 
below  the  threshold  value  to  WHITE_LEVEL. 

Latest  version  has  an  automatic  threshold  capability 
called  autoclip().  It  determines  the  background  value 
for  predefined  7  regions  in  the  image  and  uses  the 
darkest  value. 

(  Background  ==  WHITE_LEVEL  ;  Feature  ==  BLACK_LEVEL  ) 

/ 

r.c  lude  "global .  h" 
ipmainC ) 


exter’-  int  clip(WINDOWFTR  w.mt 

WINDOWPTR  wn. 

ir.t  watrib,  batrib; 

unsigned  fatrib; 

int  tval; 

char  c ; 


t);  /*  function  prototype  ’*/ 
/*  window  pointer  */ 

/*  window,  border  and  *’ / 
/*  field  attributes  */ 

/*  threshold  value  */ 

/•  scratch  */ 


watrib  =  v_^setatr  (WHITE  ,  BLUE  .  0  .  C  )  ;  /*  window  color  */ 

batrib  =  v_setatr(RED , WHITE , 0 . BOLD) ; /*  border  color  */ 

wn  =  wn_open( 500 . 8 , 13 , 50 , 10 , watrib , batrib ) ;  /*  open  a  dialog  window  */ 
if  C !wn)  { 

printf (■'\a\n\tUnable  to  open  window.  Aborting..."); 
exit( 1) : 

} 

wn_title(wn.  ■■  CLIPPING  IMAGE  "  )  ; 

if  (  (fp  “  fopen( session, "a" ) )  NULL)  { 

wn_printf (wn. "\a\n\n\tCANNOT  open  session  file  2s” , session) ; 
wn_printf (wn. "\n\n\tPress  any  key  to  continue"); 
getch( ) ; 

wn_close(wn) ;  /*  close  dialog  box  */ 

return(l):  /*  premature  termination  '^/ 

) 

if  CLOAD_^RAW)  (  /*  auto  loading  of  RAW  image  */ 

wn_printf (wn , " \n\n\tLoading  RAW  image"); 

if (getiro(wn. 0 ) )  /*  default  ext  is  . img  */ 

goto  err;  /*  error  detected,  terminate  */ 

else 

fprintf ( fp . " \nCLIP : \ timage  from  Filename:  2s" . filename) ; 


else  {  /*  ask  before  loading  */ 

v_kflush();  /*  empty  keyboard  buffer  first  */ 

wn_printf  (wn ,  \n\n\ tLoad  Image  from  disk  (NJ?  "); 
wn_printf  (wn  ,  \n\ tPress  [ESC]  to  QUIT"); 
c*getch( )  ; 

if  (c  «  ESC)  goto  err;  /*  quit  */ 

if  (c  — =  ’Y'll  c  "=  'y') 

if (getim(wn , 0) )  /♦  default  ext  is  .img  */ 

goto  err;  /*  error  detected,  terminate  */ 

else 


fprintf(fp, "\nCLIP: \tlmage  from  Filename:  25" , filename) ; 
}  /*  end  if-else  */ 


/*  clip  the  image  */ 
wn_clr(wn) ; 

wn_pr int f (wn . " \n\n\ tDetermining  threshold ..."); 

tval  *  autoclipC);  /*  Use  Auto  Threshold  */ 

fprintf  (  fp.  "\n\tAuto  Threshold:  23d'', tval); 

tval  •  clip(wn, tval) ;  /*  Modify  Threshold  */ 

f printf  ( fp,  " \tUser  Threshold:  23d'',  tval)  ; 
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wn_clr(wn);  /*  clear  window  */ 

wn_printf  (wn.  ■'\n\n\tl ;  RESTORE  image  to  original  and  abort); 

wn_printf  (wij,  "\n\t2:  SAVE  the  modified  image*’); 

wn_pr int f (wn . ” \n\ t3 :  EXIT  without  saving”); 

wr._pr  intf  ( wn  ,  " \n \n  Select,  option  by  NUMBER  [3];  "); 

v_kflush();  /*  empty  keyboard  buffer  first.  *•  t 

switch  (c*getch()) 

{ 

case  ' 1 ' : 

goto  errl;  I*  restore  and  quit  •*/ 

case  '2'  /*  update  and  save  */ 

wn_printf (wn,  ■■\n\n\tUpdating  frame  memory"); 
maplut  CGRNLUT . 0 , IXS . I YS . NCOL . NROW) ; 

putim(wn,l):  /*  save  image  with  default  ext  .  iml  '*/ 

break  ; 

case  '3':  /*  update  without  saving  */ 

default : 

wn_pr  intf  ( wn  , \n\n\ tUpdating  frame  memory"); 
maplut (GRNLUT . 0 , IXS . lYS . NCOL . NROW ) ; 
break ; 


)  /*  end  switch  */ 
linlut(GRNLUT.O) : 
fclose(fp) ; 
wn_close(wn) ; 
retumCO  ) ; 


/*  restore  GREEN  LUT .  bank  O'"/ 
f*  close  session  file  */ 

/•  close  window  */ 

/*  terminated  properly  */ 


err : 

fprintf (fp. "Vn***  CLIP  ABORTED  *** 
errl : 

linlut(GRNLUT.O) ; 
fclose(fp) : 
wn_c lose (wn ) ; 
returnC 1 ) ; 


/*  premature  termination  sequence  */ 

): 

/*  restore  GREEN  LUT,  bank  0  *f 
f*  close  session  file  */ 

/*  close  window  */ 


*  Clip  (Threshold)  routine  creates  a  binary  image.  Pixel  values  below  'val’ 
are  changed  to  BLACK_LEVEL  while  all  others  are  changed  to  WHITE_LEVEL 

*  Returns  selected  threshold. 

NOTE:  The  change  is  not  permanent  as  frame  memory  is  not  updated. 

*  The  calling  program  needs  to  call  maplut()  to  do  this. 

•/ 

clip(WINDOWPTR  w.  Int  val)  /*  passes  a  window  handle  */ 

{ 

char  c;  /*  scratch  */ 


}  / 


wn_puts (w, 3 , 5 . “THRESHOLD  LEVEL:  “); 

wn_printf (w, "Z3d" ,val) ; 

wn_puts (w, 6 , 5 , “Use  1+]  and  (-)  keys  to  adjust"); 
wn_printf (w, “ \n\n\ tPress  CENTER]  when  done"); 

v_kflush();  /*  empty  keyboard  buffer  first 

while  CCc-getchO)  !-  ENTER) 


wn_locate (w, 3 , 24 ) ; 

if  (  (c“'  +  ')  &&  (val  <  HIGH)  ) 

val  2;  /* 

if  (  (c“'-’)  &&  (val  >  LOW)  ) 

val  —  2;  /* 

wn_printf (w, “Z3d“ , val) ; 
thresholdCGRNLUT , 0 . HIGHEST , val ) ; /* 
}  /*  end  while  '•Z 

return  val;  Z* 

*  end  clip  *Z 


increase  threshold  *Z 
decrease  threshold  *Z 
threshold  GREEN  LUT  *Z 
all  OK  and  done  *Z 


/* 

*  Autoclip  function  -  This  function  samples  the  background  over  7  regions 

of  the  image  and  determines  the  darkest  value  which 

*  is  returned  as  the  threshold  value.  The  regions  are 
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ciu t.oc  iip  ( void  ) 


1 

(1) 

1  <2) 

(3) 

1 

(4) 

1(5) 

(6) 

(7) 

int.  XS:.XEl.XSc,XEc,XSr.XEr; 
I  n  t.  Y  a  =  1  ; 

1 n  t  Yb  =  80; 
int  Yc  =  2^0 i 
int  Yd  =  A78; 
int,  width  =  2C; 
int  CENTER  =2^5; 
int  tval; 
int  i  ; 


/*  X  positions  */ 

/*  y  position  for  region  1  */ 

/*  y  position  for  regions  2  and  3  */ 
/*  y  position  for  region  */ 

/*  y  position  for  regions  5,  6  and  7 
/*  width  of  regions  */ 

/**  center  of  image  */ 

/*  threshold  value  */ 

/*  scratch  */ 


XSl  =  LT_MARGIN  +  1; 

XEI  =  XSL  +  width. 

XSc  =  CENTER; 

XEc  =  CENTER  +  width; 

XSr  =  RT_MARGIN  -  1  -  width; 

XEr  =  XSr  +  width; 

/*  determine  background  intensity 
tval  =  WHITE_LEVEL; 
tval  “  findthd(XSc . XEc . Ya . tval ) ; 
tval  »  findthd(XSl. XEI, Yb, tval): 
tval  =  f indthdCXSr , XEr , Yb , tval) : 
tval  *=  findthd  (XSc  ,  XEc  ,  Yc  ,  tval )  ; 
tval  =  f indthdCXSl, XEI . Yd . tval ) ; 
tval  findthdCXSc  .XEc  .  Yd .  tval) ; 
tval  =  f indthdCXSr , XEr . Yd , tval ) ; 
threshold (GRNLUT . 0 , HIGHEST , tval ) : 
return  tval; 


/*  left  edge  of  regions  1  and  2 
/*  end  of  regions  1  and  2  */ 

/*  left  edge  of  central  regions 
f*  end  of  central  regions  */ 

/*  left  edge  of  regions  6  and  7  */ 
I*  end  of  regions  6  and  7  */ 
r  each  region  */ 


/* 

initial  threshold  value  */ 

/* 

find 

threshold 

for 

region 

1 

/• 

find 

threshold 

for 

region 

2 

"/ 

/* 

find 

threshold 

for 

region 

3 

*/ 

/* 

find 

threshold 

for 

region 

4 

!* 

find 

threshold 

for 

region 

5 

"/ 

/* 

find 

threshold 

for 

region 

4 

*/ 

/* 

find 

threshold 

for 

region 

5 

/♦ 

threshold  GREEN 

1  LUT 

■  */ 

/* 

return  threshold  */ 

determine  background  of  region  defined  by  the  parameters  passed 
returns  the  darkest  background  level 


findthdCint  xs .  int  xe.  int  y,  int  T) 

{ 

int  pixvai; 
int  i ; 

for  ( i*ncs ;  i^xe;  i**^)  { 
pixvai  “  rpixeKi.y); 
ifC  pixvai  >  (jRAY  ) 

T  *  mind, pixvai) ; 

> 

return  T; 

} 

end  of  file  CLIP.C  */ 


/*  pixel  value  ♦/ 

/*  scratch  counter  */ 


/*  read  pixel  value  */ 

/*  light  pixels  assumed  to  be  */ 
f*  background,  take  darkest  */ 

/*  return  new  threshold  */ 
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FILENAME 
DEPENDENCIES 
LAST  MODIFIED 


TAG.C 

called  by  SEMEX  mainC)  and  calls  semio  functions 
12  Mar  91  by  LEE  YEAW-LIP 


*  PURPOSE:  Labels  and  identifies  each  feature  in  the  image.  Reads  pixel- 

"  by-pixel,  left  to  right,  top  to  bottom,  and  assigns  a  unique 

ID  (fid)  number  to  each  feature  (agglomeration  of  pixels)  so 

*  that  they  can  be  processed  by  size()  or  saved  for  later 

*  processing.  If  there  are  more  than  254  features,  a  group  ID 
(gid)  is  also  given.  The  tag()  function  requires  a  binary 

*  image  obtained  with  the  clip()  function  where 

*  Background  ==  WHITE_LEVEL  and  Feature  ==  BLACK_LEVEL 


^include  "global. h" 
f.^inc  lude  <time  .  h> 

static  int  fid; 
static  int  gid; 
static  int  maxfl; 

tagmain( ) 

extern  int  tag (WINDOWPTR  w); 

WINDOWPTR  wn; 

int  watrib,  batrib; 

char  c ; 

watrib  =  v_setatr (WHITE , BLUE . 0 , 0 ) ; 


required  for  all  SEMEX  files 
/*  required  for  time  functions 

/*  feature  indices  */ 

/*  gid  =  fid\HIGH 
/*  max  feature  size  */ 


/*  prototype  declaration 
f*  window  pointer  */ 

/*  window,  border  and  */ 

/*  window  color  "/ 
border  color  */ 

open  a  dialog  window  */ 

Aborting 


batrib  *  v_setatr(R£D . WHITE , 0 , BOLD) ;  / 

wn  wn_open(  500 . 8 , 13 . 50 . 10  .watrib  .batrib) ;  / 
if  ( ! wn )  ( 

printf ("\n\tUnable  to  open  window. 
exit(l); 


wr._title(wn, ’’  TAGGING  IMAGE  "  ) ; 

if  ((fp  “  fopen( session, "a" ) )  NULL)  { 

wn_printf (wn, "\a\n\n\tUnable  to  open  session  file  Zs" , session) ; 
wn^printf  (wn,  "\n\n\tPress  any  key  to  continue*’); 
getch( ) : 

wn_ciose(wn) ;  /*  close  dialog  box  ♦/ 

retum(l);  /*  premature  termination  *f 

) 

if  (LOADCLIP)  {  /*  load  CLIPPED  image  without  asking  */ 

wn_printf  (wn,  *'\n\n\tLoading  CLIPPED  image”); 
if ( getim(wn , 1 ) )  /*  default  ext  .iml  */ 

goto  err;  /•  error,  don't  continue  */ 

else 

fprintf (fp, ”\nTAG: \tlmage  from  Filename:  Zs\n" , filename ) ; 

) 

else  if  ( !DO_SEQ)  {  /*  not  processing  frame  memory  */ 

v_kfiush();  /*  empty  keyboard  buffer  first  */ 

wn_printf (wn, "\n\n\tLoad  CLIPPED  image  from  disk  [N]?"); 
wn_printf  (wn,  ■'\n\tPress  [ESC]  to  QUIT"); 
c=getch( ) ; 

if(  c  “=  ESC)  goto  err;  /*  quit  */ 

if(  (c  --  'Y' )  II  (c  -=  ’y' )  ) 

i£(getini(wn ,  1 ) )  /*  default  ext  .iml  */ 

goto  err:  /*  error,  don’t  continue  */ 

else 

fprintf ( fp,  " \nTAG : \tlmage  from  Filename;  Zs\n" . filename) ; 

) 

else  fpr intf ( f p . " \nTAG : " ) : 

Z* 

*  perform  feature  extraction  and  tagging 

*/ 

if(tag(wn))  {  /♦  if  error,  don't  save  */ 

wnpr intf (wn , " \n\n\ tPress  Any  Key  to  continue"); 


getchC ) ; 

goto  err;  /*  terminate  */ 


} 

v_kf lushC ) ; 

wn_printf  (wTi,  ■■\n\n\tSave 
c=getch( ) ; 

if  Cc“=  ESC)  goto  err; 

11 (  (c  ==  ' Y* ;  ! i  (c  == 
putim(wn.2) ; 
f c lose ( fp ) ; 
v/n_close(vm)  ; 
returnC  0 ) ; 


/*  empty  keyboard  buffer 
image  to  Disk  File  [N]?"); 

/*  quit  •*/ 

■y‘  j  ) 

!*'  save  with  default  ext 
/*  close  session  file  */ 
I*'  close  window 


first  */ 


. im2  *  / 


err  ; 

fprintf (fp, 
fclose( fp) ; 
wn_close(wn 
return ( 1 )  ; 


/*  error  condition  */ 

TAG  ABORTED 

;  i*  close  window  */ 

/*  signal  back  error  */ 


image  feature  identification  and  tagging  algorithm 
^(WINDOWPTR  w)  /*  window  handle  * j 


extern  void  tagrowO (WINDOWPTR  w) ;  (* 

extern  void  tagrows  (WINDOWPTR  w);  (*• 

extern  void  checkmerge(WINDOWPTR  w);  /* 

extern  int  tagmerge(WINDOWPTR  w);  /* 

extern  void  step(void);  /* 

extern  docket  clock(void); 
docket  start;  /* 

float  elapsed;  /* 

unsigned  fatrib;  /* 

char  ibuf ( 10] ; 


static  char  *emsg  «  "must  be  between  2  and 


function  prototype  */ 

declarations  */ 

ditto  */ 

ditto  */ 

ditto  */ 

ditto  */ 

timing  variable  */ 
ditto  */ 

field  attribute  */ 
scratch  string  */ 

255.  Press  any  key’  ; 


fatrib  -  (BLUE«4)  |  WHITE  I  BOLD; 

/* 

field  color  */ 

wn_cLr(w):  . 

/* 

clear  window  */ 

if'c !DF_SIZE)  { 

itoaCOVERSIZE, ibuf , 10) ; 

/* 

convert  to  string  */ 

wn_gint(XEO , NFRM, NFLD . w, 2 , 1 . "Eliminate  features  larger  than:  " , 
fatrib. , &maxf 1 , 3 , 2 , 255 . ibuf ,NSTR. emsg) ; 


} 

else 

maxfl  -=  OVERSIZE; 
start  «  clock ( ) ; 

wn_printf Cw, "\n\n\tTAGGING  FEATURES 
fid  *  LOW; 
gid  *  0; 

wn_wrap(w,TRUE) ; 
tagrowO(w) ; 
tagrows(w) ; 
fid  +“  gid*HIGH  ~  1; 
if  (fid  <  LOW)  { 

vm_printf  (w, '■  \a\n\n\tOverf  low  has 
wn_printf(w. "\n\tAborting 
return( 1 ) ; 

} 

checkmerge(w) ; 
if  (tagmerge(w) ) 
return( 1 ) ; 


/♦  use  default  max  *f 
f*  feature  size  */ 

/*  start  timer  */ 
in  Progress\n'‘ ) ; 

/*  initialize  feature  count 
f*  initialize  group  count  */ 
/*  word  wrap  ON  */ 

/*  tag  top  row  */ 

!*  tag  subsequent  rows  •/ 

/*  get  total  features  */ 


occurred.  Fid*  Xd" ,  fid); 
Feature  Extraction"); 


/*  check  merging  window  size 
/*  merge  joined  features  */ 
/*  signal  back  error  */ 


wnjprintf  (w.  "\n\tFEATURE  COUNT:  Zd'’.fid); 

elapsed  *  (float)  ( dock ( )-start )  /  (float)  CLK_TCK; 

wn__printf (w. "\n\n\tElapsed  Time:  X.lf  seconds" . elapsed) ; 

fprintf  (fp,  ■■\tTagged  Zd  features  in  Z.lf  seconds"  .  fid .  elapsed ) ; 

maplut (GRNLUT , 0 , IXS , I YS , NCCL , NROW) ;  update  frame  memory  */ 

retum(O):  /*  signal  OK  back  */ 
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) 


/" 

"  Tag  the  top  row  of  the  image 

^  Note  that  fid  cannot  exceed  HIGH.  This  is  taken  care  of  by  step() 

*/ 

void 

tagrowO (WINDOWFTR  w) 

I 

extern  void  step(void);  /*  prototype  definition  */ 

register  x,  rp;  /*  scratch  */ 

for(  X  >=  LT_MARGIN  ;  x  <  RT_MARGIN  ;  x++  )  /*  start  from  left  edge  "/ 

{ 

if(  rpixeKx,  ITS)  ==  WHITE_LEVEL  ) 

continue:  /■*  skip  background  */ 

/*  from  here  on,  pixel  is  not  background  */ 

if  (  (X  !=  LT_MARGIN)  &&  ( <rp=rpixel(x-l , ITS) )  !=  WHITE_LEVEL)  )  { 
wpixeKx  .  lYS  ,  rp)  ;  /*  west  pixel  occupied,  adopt  ID  "/ 

continue ; 

) 

wpixel(x,IYS,fid);  /*  no  neighbor,  give  new  ID  */ 

wn_printf (w , " \ r \ tZ5d" , f id+gid"HIGH ) : 

step();  /*  increment  feature  counter  "/ 

}  /*  end  for  x  */ 

) 


*  Tag  subsequent  rows  in  the  image 

*  Note  that  fid  cannot  exceed  HIGH.  This  is  taken  care  of  by  step() 


*/ 

void 

tagrows (WINDOWFTR  w) 

{ 

extern  void  step(void); 
register  xl; 
register  x,  y; 
int  rp; 


/*  scratch  */ 

/*  current  pixel  location  */ 
/*  pixel  value  •/ 


for(  y  *  1  :  y  <  NROW  ;  y++  )  /»  start  from  top  edge  +  1  */ 

{ 

for(  X  ”  LT_MARGIN  ;  x  <  RT  MARGIN  ;  x++  )  /*  start  from  left  edge  */ 

{ 

if(  rpixel(x,y)  —  WHITE_LEVEL  ) 

continue;  /*  skip  background  */ 

/*  from  here  on,  pixel  is  a  feature  */ 

if(  (X  !-  LT_MARGIN)  &&  ( ( rp-rpixel(x-l ,y ) )  !-  WHITE_LEVEL)  )  { 
wpixeKx.y  ,rp) ;  /*  west  pixel  occupied,  adopt  ID  */ 

continue ; 

) 

if(  (rp-rpixel(x,y-l))  !'  WHITE_LE:veL  )  { 

wpixel(x,y,rp) ;  /•  north  pixel  occupied,  adopt  ID  */ 

continue ; 

) 

wpixeKx ,y,  fid) ;  /*  no  N/W  neighbors,  give  new  ID  */ 

/*  Check  rest  of  row  for  connectivity  */ 

xl  =  X  +  1;  /•  start  with  east  neighbor  */ 

while ( 1) 

{ 

if(  rpixel(xl,y)  “  WHITELEVEL  )  {  /•  end  found  */ 
wpixeKx , y ,  fid ) ;  /*  assign  ID  */ 

wn_printf (w, "\r\tZ5d " , fid+gid*HIGH) ; 
step( ) ;  /*  increment  feature  counters  */ 

break;  /*  done  */ 

) 

if(  ( rp-rpixeKxl ,  y-1 ) )  !•=  WHITE_LEVEL  )  {  /*  merge  */ 
wpixeK X , y , rp) ;  /*  use  north  pixel's  ID  */ 

break ; 

) 
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xl++;  /•  move  further  east  */ 

}  I*  end  while  •*/ 

)  /*  end  for  x  */ 

}  /*  end  for  y  */ 


*'  Checks  reliability  of  merge  algorithm  by  comparing  the  maximum  feature 
*  length,  maxtl,  and  the  density  of  the  features 

void 

checkmerge(WINDOWPTR  w) 

{ 

int  safesize;  /*  safe  max  window  size  */ 

safesize  =  (int)  (NROW  /(  C int ) C f id/ (HIGH+1) )  +  2)); 
if  (maxfl  >  safesize)  { 

wn_clr(w);  /*  declutter  the  screen  */ 

vm_printf  (w, '■  \a\n\tSizing  window  cannot  support  Xd  features”  ,  fid) ; 
wn_printf  (w,  ■•\nAtShrinking  window  from  Xd  to  Xd  pixels”  , maxfl .  safesize ) 
%  wn_printf (w, ”\n\tAny  larger  features  will  be  removed”); 

wn_printf  (w,  ”\n\tlf  this  happens,  Clip  the  image  again'*); 
wn_printf (w, "\n\tat  a  lower  threshold  so  as  to  reduce”); 
wn_printf (w, ”\nitthe  number  of  features.”); 
wn^printf  (w,  ”\n\n\tPress  any  key  to  continue*'); 
maxfl  *  safesize; 

OVERSIZE  =  safesize; 
getchC ) : 

) 

else  wn_printf (w. ” \n\ tLargest  permissible  feature  is  Xd  pixels” . safes ize ) . 


"  The  following  algorithm  to  merge  joined  features  will  fail  if 
maxfl  IS  set  too  large  and  there  are  many  (>254)  small  features 
*  bunched  together. 

*/ 

tagmerge (WINDOWPTR  w) 

{ 


register  3tl,yl; 
int  x.y. 

int  id; 

int  nid; 

int  xleft .xright .ytop.ybot ; 

int  found.  merge_done.  nmerged 


/*  in-window  variables  */ 
/*  current  pixel  indices  * 
/*  current  pixel  ID  */ 

/•  ID  of  pixel  above  */ 

/*  sizing  window  limits  */ 
0;  /*  tracks  merging  */ 


wn_printf (w, ” \n\tCombining  joined  features ... \n” ) ; 

for(  y  “  1  :  y  <  NROW  ;  y-M-  )  /*  start  from  row  1  */ 

{ 


ytop  *  y  ”  maxfl;  /*  set  row  search  limits  */ 

ybot  *  y  maxfl; 

i£(  ytop  <  1)  ytop  ■  1; 

if(  ybot  >  NROW  )  ybot  •  NROW; 

for(  X  -  LT_MARGIN  ;  x  <  RT_MARGIN  ;  )  f*  loft  edge  to  right  */ 

{ 


(nid 


/*  get  current  pixel  ID  */ 
/*  get  ID  of  pixel  above  •/ 
“  WHITE  LEVEL)  1 | 

/*  skip  if  background  or  */ 
/*  part  of  same  feature  */ 
Merge  */ 

/*  exist  but  not  found  */ 

/*  set  column  search  limits 


id  ■  rpixeKx.y) ; 
nid  »  rpixel (X .y-1 ) ; 
if(  (id  —  WHITE_LE:vEL)  I 
(id  nid)  ) 
continue ; 

/*  Joined  features  exists 
found  *  FALSE ; 
xleft  •  X  -  maxfl ; 
xright  •  X  ♦  maxfl; 

if(  xleft  <  LT_MARGIN)  xleft  -  LT_MARGIN; 
if(  xright  >  RT_MARGIN  )  xright  «  RT_MARGIN; 

for  (  yl  •  ytop  ;  yl  <  ybot  ;  yl+-»-  )  {  /•  scan  vertically  */ 

merge_done  “  TRUE,  /*  assume  merged  */ 
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for  (  xl  *  xleft,  xl  <  xrxght;  xl++) 
if  {  rpixel ( X 1 . y 1 )  ==  id  )  { 
found  =  Tr.UE  ; 
wpixe l( X 1 , V 1 , nid ) ; 
merge_donfc  =  FALSE; 


/*  scan  horizontally  * 
/*  same  feature  *'/ 

/*  found  the  culprit  ’* 
/*  change  its  ID  •' / 

/*  assumption  wrong  */ 


if  (found  6i&.  merge_done)  break;  /*  culprit  found  and  merged 
)  /*  end  for  yl  *•/ 

/*  one  feature  has  been  merged  */ 
wn_pr intf  ( w ,  "  \  r  \  t2  5d"  .  ■♦■+nmerged )  • 


fid — ,  decrement  feature  count  ''' / 

if  (fid  <  LOW)  {  /*  check  */ 

wn_pr  intf  (w .  \  a \n\n\ tUnderf  low  has  occurred.  Fid  =  2d",  fid 
wn_pr intf  (w .  \n \ tAborting  Feature  Extraction"): 
return(l),  /*  signal  error  back  */ 


} 


}  f*  end  for  x  */ 

}  /’'  end  for  y  */ 

TOTAL  =  (long)fid;  /*  save  the  grand  total  */ 

return(O);  /*  signal  OK  back  ’'/ 


*  stepC)  allocates  a  unique  pair  of  numbers  to  each  feature,  namely 

^  a  feature  ID  number  (fid)  and  a  group  ID  number  (gid).  Allocation 

*  IS  based  on  the  limitation  that  fid  must  not  exceed  8  bits.  Therefore 
"  Increment  fid  until  it  reaches  HIGH 

*  then  reset  it  to  LOW  and  increment  gid 

This  IS  necessary  as  pixel  value  is  8  bits  only 

void 

step( void ) 
fid+>. 

if(  fid  >  HIGH  )  { 
fid  =  LOW, 
gld-r-*- ; 

} 

} 


/*  End  of  file  TAG.C  •/ 


*************************«lt'***A 


t 


*  FILENAME  SI2E.C 

"  CALLED  BY;  semex  main()  and  calls  semio.c  functions 
LAST  MODIFIED  :  12  Mar  91  by  LEE  YEAW-LIP 


PURPOSE  This  routine  uses  an  existing  or  saved  image  that  has 

*  been  clipped  with  clip()  and  tagged  with  tag().  The  output 

*•  of  this  program  is  a  tabular  output  of  the  calculated 

area,  X-Chord,  and  Y-Chord  that  is  suitable  for 
input  to  a  statistical  analysis  program. 

*  NOTES;  TOTAL  (no  of  features)  is  automatically  set  by  TAG. 

^  Background  ==  WHITE_LEVEL 

^  Feature  ==  BLACK^LEVEL 


f;inc  lude  "global .  h" 
include  <time  .h> 
»»include  <string.h> 


/*  required  by  all  SEMEX  files  •'/ 
/’*  required  for  time  functions  *"  / 
f*  required  for  string  functions 


static 

float 

yscale . 

static 

int 

fid. 

static 

int 

maxfl,  minfl. 

.static 

int 

xmax,  ymax. 

static 

int 

xmin.  >Tnin'. 

static 

long 

minarea.  maxarea 

static 

long 

*aptr ; 

static 

int. 

*xptr.  "yptr. 

sizemainC  ) 

{ 

extern  int  sizeCWINDOWPTR  wj; 

WINDOWPTR  wn; 

int  watrib.  batrib; 

unsigned  fatrib; 

char  c; 


/"  vertical  scale  factor  */ 

I*  track  number  of  features  */ 

I*  tracks  max  and  min  features 
/•'  max  feature  lengths  *  I 
min  feature  lengths  •*/ 

/•  smallest  and  largest  areas  *' ! 
/*  pointer  to  area  store  */ 

/•  pointer  to  x.y  stores  *! 


/*  prototype  declaration  */ 
I*  Window  pointer  *! 

/*  Window,  border  and  */ 

/*  field  attributes  */ 


watrib  «  v^setatr (WHITE  BLUE. 0.0);  /*  window  color  */ 

batrib  ■  v_setatr(RED, WHITE, 0, BOLD);  /*  border  color  *{ 

wn  ■  wn_open( 500 , 8 , 12 , 50 . 10 .watrib , batrib ) ;  /*  open  a  dialog  window  */ 

if  C  »wn) 

{ 

printf < " \n\tUnable  to  open  window.  Aborting...”); 
exit C 1 ) ; 

) 

wn_titieCwn, "  SIZING  FEATURES  "); 
if  (Cfp  *  fopenCsossion. "a" ) )  •-  NULL)  { 

wn_prlntf  (wn. ’'\a\n\n\tUnable  to  open  session  file  2s” , session ) ; 
wn_printf  (wn,  ■■\n\n\tPress  any  key  to  continue”); 
getch< ) ; 

wn_close(wn) ;  /*  close  dialog  box  */ 

retum(l);  premature  termination  */ 


if  (LOADTAG)  {  /•  load  TAC5GED  image  w/o  asking  */ 

wn_printf  (wn,  ”\n\n\tLoading  TA(jGED  image”); 

if  ( getim(wn . 2 ) )  /*  if  error  don't  size  */ 

goto  err;  /*  terminate  */ 

else 

fprintf  (fp. '■\nSIZi,  ■  \tlmage  from  Filename:  Zsln"  ,  filename) ; 

} 

else  if  (!DO__SE0)  {  /*  not  processing  frame  memory  */ 

wr._printf  (wn,  "\n\n\LLoad  T/.GGED  image  from  disk  [N]?*'); 
wn_pr  Intf  ( wn  .  \n  \  tPress  [ESC]  to  QUIT"); 


v_kf lush( ) ; 
c  -  getch( ) , 
lf(  c  •-  ESC)  goto  err, 
tf(c  "  'Y’U  c  “=  ‘y’) 
1 f  ( get im(wn . 2 ) ) 
goto  err, 

else 


/*  empty  keyboard  buffer  first  */ 
quit  */ 

f*  read  image  with  ext  . im2 
/*  if  erroi  don’t  size  */ 

/*  terminate  */ 
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fprintf  (fp,  " \nSIZE :  \ timage  from  Filename:  2s\n'' ,  filename ) ; 


} 

else  fprintf Cfp, "\nSIZE; ") ; 

/*  feature  sizing  *! 
if(si2e(wn))  { 

wn_printf (wn. ”\n\n\tPress  any  Key  ' 
getch( ) ; 
goto  err; 

} 

wn_printf  (wn  .  ” \n \n\ tSave  data  [Y]’*'); 
v_kf lushC ) ; 
c  *  getchC ) ; 

if  C  (c!  =  'N')  &&  (c.'  =  'n')  )  outdataO; 
fclose(fp) ; 

free  dynamically  allocated  memory  * 
freeCxptr ) ; 
free(yptr ) ; 
free ( aptr ) ; 
v_kf lush( ) ; 

wr._printf  (wn,  ■'\n\n\tSave  image  to  Disk 
c=getch( ) ; 

if (c  ==  ' Y' 1 1  c  ==  'y ' )  { 

wn_printf  (wn ,  \n\n\tUpdating  frame 
maplut (GRNLUT , 0 . IXS . lYS , NCOL , NROW) 
putim( wn . 3 ) ; 

} 

wn_close(wn) ; 
return(O) ; 

err  : 

fprintf(fp."\n***  SIZE  ABORTED  ***”): 
fcIose( fp) ; 
wn_close(wn} ; 
retum(  1 ) ; 


/*  process  frame  memory  contents  "/ 

/*  if  error  don't  save  */ 
continue” ) ; 

f*  terminate  */ 


/*  empty  keyboard  buffer  first  '^ ! 
/*  get  user  response  * / 

/*  display  data  */ 

/**  close  session  file  *• ! 


/*  empty  keyboard  buffer  first  */ 
File  IN]?”); 

/*  get  user  response  */ 

memory 

;  f*  update  frame  memory  *! 

/*  save  image  with  ext  .  im3  I 

/*  done,  close  window  */ 


/*  terminate  phase  */ 

/*  close  session  file  */ 
/*  close  window 


/*  feature  sizing  algorithm  */ 


siZeCWINDOWPTR  w) 

/♦ 

pass  window  pointer  */ 

( 

extern  docket  clock(void); 

/* 

function  prototypes  •/ 

extern  int  outdata(void ) ; 

/* 

ditto  */ 

extern  void  pixelsizeCWINDOWPTR  w). 

/* 

ditto  */ 

docket  start; 

/* 

timing  variable  */ 

float  elapsed; 

/♦ 

ditto  */ 

unsigned  fatrib ; 

/* 

field  attributes  */ 

char  c; 

/* 

scratch  */ 

char  ubuff[20] ; 

/• 

scratch  string  buffers 

/*  help  message  strings  */ 

static  char  *hipl  “  “Sets  vertical  pixel  scale  factor  (1]"; 

static  char  *hlp2  «  "Features  larg'i^r  than  this  will  be  discarded  [lOO]”: 

static  char  *hlp3  •  “Features  smaller  than  this  will  be  discarded  [1) 

/*  error  message  strings  */ 

static  char  ♦emsgl  •  “must  be  between  0  and  100.  Press  any  key"; 

static  char  *emsg2  ■  “must  be  between  2  and  256.  Press  any  key”; 

static  char  ^emsgS  ■  "must  be  between  1  and  255.  Press  any  key"; 

static  char  *emsgA  •  “must  be  between  100  and  9999.  Press  any  key”. 


vm_clr(w) ; 

fatrib  -  (BLUE«<i)  |  WHITE  |  BOLD; 
if  (DF_VSCALE) 

yscale  ■  VSCALE; 
else  { 

sprintf ( ubuf f , "17 . 2f " , VSCALE ) ; 
wn_gf lost ( XEQ . NFRM , NFLD . w , 2 , 2 . ”V 
fatrib , ' _ ' . Ayscale . 7 , 2 . 0 . 0 


/*  clear  window  */ 

/*  field  color  */ 

use  default  conversion  *! 

/*  convert  to  string  */ 
rtical  Scale  factor:  ”, 

100,0, ubuf f , hlpl , emsgl ) ; 


if  (DF_SIZE)  {  /*  set  feature  limits  */ 

minfl  -  UNDERSIZE; 
maxfl  ■  OVERSIZE; 
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} 

else  { 

itoa(UNDERSIZE .  ubuf  f  .  10  ) ;  /*  convert  to  string  '*/ 

wTi_gint (XEQ , NFRM, NFLD , w, A , 2 ,  "Discard  Features  SMALLER  than: 

f atrib . ’ ,  fioninf 1 ,3,1,255, ubuf f ,hip3 , emsg3) ; 
itoa(OVERSIZE,ubuff , 10) ;  /*  convert  to  string  */ 

wn_gint (XEQ . NFRM, NFLD , w , 6 , 2 ,  "Discard  Features  GREATER  than:  ", 
fatrib, , &maxf I , 3 . 2 , 256 . ubuf f ,hip2 . emsg2 ) ; 

) 

/’*  Dynamically  allocate  memory  for  the  TOTAL  number  of  features 
*  generated  by  TAG.  If  this  is  not  available,  user  option  is  allowed, 

*/ 

if  (TOTAL  <=  0)  { 

wn_printf  (w.  ■■  \n\n\ timage  not  recently  tagged.  Continue  [N]  ?"); 
v_kflush();  /*  prevent  spurious  input  */ 

c  =  getch();  /*  get  user  response  */ 

if  ((c  -='Y'  )  II  (c  ==  'y  ))  { 
itoa(2a00,ubuff,10): 

wn_gint (XEQ , NFRM. NFLD , w , 8 , 2 ,  "Max  Number  of  Features  Expected: 
fatrib  ,  '  _ '  ,  &.T0TAL  .  A  ,  100 , 9999 .  ubuf f  ,hlp2 .  emsgA  ) ; 

} 

else  return(l);  /*  don’t  size  */ 

>  /*  end  if  *} 

xptr  =  (int  *)  calloc ( TOTAL . si2eof( int )) ; 
yptr  *  (int  *)  calloc ( TOTAL , sizeof ( int )) ; 
aptr  “  (long  *)  calloc (TOTAL . sizeof ( long )) ; 

/*•  Check  for  successful!  memory  allocation  */ 
if(  Ixptr  j  )  !yptr  | |  !aptr  )  { 

wn_printf (w.  ■■\a\n\tNot  enough  Memory  to  allocate!”); 
wn_printf  (w.  ■■\n\tReduce  TOTAL  =  Zd  and  try  again",  TOTAL); 
vm_printf (w. " \n \n \ tPress  any  key  to  continue”); 
getch( ) ; 
return( 1 ) ; 

) 

fprintf (fp, " \tVertical  scale;  Zf  pixels/unit  length" .yscale) ; 

fprintf ( fp, " \n\ tMin  Length  spec;  ZAd\tMax  Length  spec;  ZAd" ,minfl,maxfl) ; 

/*  Begin  Sizing  Routine  */ 

start  •  clockC);  /*  start  timing  */ 

wn_wrap(w,  TRITE ) ;  /*  turn  wordwrap  ON  */ 

wn^printf  (w.  "  \n\n\  tSizing  features  \n'’ ) ; 

pixelsize(w) ;  t*  size  image  in  pixels  *i 

elapsed  -  (float)  (clock( )-start)  /  (float)  CLK_TCK; 
wnjprintf(w. "\n\n\tElapsed  time;  Z.lf  seconds",  elapsed  ); 
fprintf (fp, ”\n\tSizing  took  Z.lf  seconds" , elapsed) ; 
retum(O):  /*  signal  OK  back  */ 


*  Size  features  by  pixel  count.  No  scaling  factors  taken  into  account. 
*l 

void 

pixelsi2e(WIND0WPTR  w) 


register  int  xl,  yl. 

/* 

scratch  indices  */ 

int 

X.  y; 

/* 

current  pixel  location  */ 

int 

currvai . 

/* 

current  pixel  value  */ 

int 

xleft.  ytop,  xright,  ybot; 

/* 

sizing  box  */ 

int 

xlen*0 .  y len“0 , 

/* 

zeros  feature  dimensions  * 

/ 

long 

pixarea*G , 

zeros  feature  areas 

int. 

reject*’C  . 

/* 

zeros  rejects  */ 

int 

too  lar^e^O . 

/* 

zeros  oversized  features  * 

/ 

1  n  t 

too  sma 1 1 *0 , 

/• 

zeros  undersized  features 

*/ 

fid  ’ 

/♦ 

Initialize  Feature  counter 

*/ 

xmax 

-  G  , 

/* 

Max  X-Chord  reset  to  zero 

*/ 

'/max 

-  ■: . 

/* 

Max  Y-Chord  reset  to  zero 

*/ 

xm  1  r. 

*  NCGL 

/* 

Min  X-Chord  reset  to  max  * 

/ 

’/m  1  n 

»*  NRClA* 

/* 

Min  Y-Chord  reset  to  max  * 

/ 

rr, : a 

rpa  -  *  NkOW, 

/• 

Min  area  reset  to  max  */ 
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maxarea  =  0; 

for(  y  =  lYS  ;  y  <  NROW  ;  y++  ) 

{ 

ifC  fid  *=  TOTAL  )  break; 
ytop  =  y; 
ybot  =  y  +  maxfl; 
ifC  ytop  <  lYS)  ytop  =  lYS; 
ifC  ybot  >  NROW  )  ybot  =  NROW; 
forC  X  =  LT^MARGIN;  x  <  RT_MARGIN; 
{ 

currvai  =  rpixel(x.y): 
ifC  fid  ==  TOTAL  )break; 
if(  (currvai  ==  WHITE_LEVEL)  | 
continue ; 


/*  Max  area  reset  to  zero  »/ 

/*  do  for  all  rows  */ 

/*  Quit  when  all  features  sized  */ 
/*  set  up  y  coordinates  "*/ 

/*  for  sizing  box  */ 


X++  )  /*  do  for  all  columns  */ 

/*  get  current  pixel  value  */ 
/*  all  features  sized  */ 

1  (currvai  ==  BLACK_LEVEL)  ) 


/*  pixel  is  part  of  feature  yet  to  be  sized  */ 

xleft  =  X  -  maxfl;  /*  Set  up  x  coordinates  */ 

xright  *  X  +  maxfl;  /*  for  sizing  box  */ 

if(  xleft  <  LT_MARGIN)  xleft  -  LT_MARGIN; 

if(  xright  >  RT_MARGIN  )  xright  =  RT_MARGIN; 

for(  yl  =  ytop  ;  yl  <  ybot  ;  yl++  )  /*  do  for  all  rows  in  box  */ 

for(  xl  =  xleft  ,  xl  <  xright  ;  xl++  )  /*  do  for  columns  */ 

{ 


if(  rpixel ( xl , y 1 ) 
pixarea-»"»- i  /* 

xlen++;  /* 

wpixeKxl.yl,  BLACK_LEVEL ) ; 

)  /*  end  for  xl  ♦/ 
if(  xlen“0  )  break; 
i£(  xlen  >  xptr(fidl  ) 
xptrtfidl  •=  xlen; 
xlen  =  0; 
ylen++; 

}  /♦  end  for  yl  ♦/ 
yptrlfid]  ■■  ylen; 
aptrCfid]  ■  pixaroa; 
ylen  “  0; 
pixarea  '  0; 

/»  Collect  statistics  for  rejects  */ 
if  (  xptrtfid]  <  minfl 
too_sroall-*-t; 
reject++; 

0; 

0; 


currvai  )  continue;  /*  skip  »/ 
increment  pixel  area  */ 
increment  x  length  ’/ 

/*  mark  off  as  counted  * 


passed  bottom  edge  */ 
update  max  x  length  */ 


reset  x  length  */ 
increment  y  length 


'/ 


store  max  y  length  */ 
store  max  area  */ 
ready  for  next  feature 


yptrlfid]  <  minfl  )  { 


xptrtfid] 
yptrlfid] 
continue ; 


/•  re-initialize  x  element  */ 
/*  re-initialize  y  element  */ 
/*  don't  increment  fid  */ 


) 

if( 


xptrtfid]  >=  maxfl 
too_large++; 
reject-M-; 
xptrtfid]  -  0; 
yptrtfid]  •=  0; 
continue ; 


ypt-'fid]  >=  maxfl)  { 


/*  re-initialize  x  element  */ 
/*  re-initialize  y  element  */ 
/*  don't  increment  fid  */ 


) 

Calculate  Min/Max  values 
xmax  *  raax(  xmax,  xptrtfid] 
ymax  »  max(  ymax,  yptrtfid] 
xmin  “  mint  xmin ,  xptrtfid] 
ymin  •  mint  ymin,  yptrtfid 
maxarea 
minarea 
f  id++ ; 


‘/ 


/*  widest  feature  */ 

/*  tallest  feature  */ 

/•  narrowest  feature  */ 

]  )  ;  /*  shortest  feature  */ 
max(  maxarea.  aptrtfid]  )  ;  /•  largest  feature  */ 
mint  minarea,  aptrtfid]  )  ;  /•  smallest  feature  */ 
/*  get  next  feature  */ 


wn_printf (w, " \r\tZ5d" , f id) ; 

)  /*  end  for  x  */ 

}  /*  end  for  y  */ 

TOTAL  '  (long) fid;  /•  Record  now  total  •/ 

wnclrtw);  /*  clear  dialog  box  */ 

wnprintf (w, ” \n\n\ tSized  Zld  Features  within  specif ications” , TOTAL ) ; 
fprintf ( fp, " \n\ tZld  Features  were  within  specifications" , TOTAL) ; 
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if  (Loo_smalI  >  0)  { 

vm_printf  (w,  ■'\n\tZd  Features  were  less  than  Xd  pixels"  .  too_small .  minfi  )  ; 
fpr intf ( fp . " \n\ tZd  Features  were  less  than  Xd  pixels" .too_smaIl,minfl) ; 

} 

if  (too_large  >  0)  { 

wn_pr intf ( w , ■ \n\ tZd  Features  were  greater  than  2d  pixels" , too_iarge . maxfl ) ; 
fprintf  (  fp ,  ■  ’\n\ t2d  Features  were  greater  than  2d  pixels"  ,  too_Iarge  ,  maxfl)  ; 

if  (reject  >  0)  { 

vm_printf  (w. '■  \n\t2d  Features  were  REJECTED"  .  reject ) ; 
f pr intf  (  f p .  \n  \  t2d  Features  were  REJECTED"  ,  reject ) ; 

} 

} 


Output  routine  to  display  x  and  y  dimensions,  and  2  areas 
AREAl  assumes  feature  is  elliptical  and  uses  PI*xlen*ylen 
AREA2  converts  directly  from  pixel  area  to  feature  area. 

outdata(void) 


const  float  =  0.785398; 

FILE  *fdata; 

WINDOWPTR  w; 
int  watrib.  batrib; 
unsigned  fatrib; 
int  j  ; 

float  Cx,  Cy,  Ca; 

float  fxmax,  fymax,  fxmin,  fymin; 
float  xlen,  ylen; 
float  area,  fmaxarea.  fminarea; 
char  ubuff[20].  datafile[20] ; 
char  c; 


/*  define  pi/4  *f 
I*  data  file  pointer  */ 

/*  window  pointer  */ 

/*  window,  border  and  */ 

/*  field  attributes  */ 

/*  scratch  index  */ 

/*  Conversion  constants  */ 

/*  scaled  statistics  */ 

/*  scaled  dimensions  */ 

/*  scaled  areas  */ 

/*  scratch  string  buffers  */ 


watrib  *  v^setatr (WHITE , BLUE . 0 . 0 ) ;  /*  window  color  */ 

batrib  **  v^setatr  (RED ,  WHITE ,  0 ,  BOLD ) ;  !*  border  color  */ 

w  »  wn_open(800 . 0 . 13  ,  50, 23  .watrib  .batrib) ;  /*  open  a  dialog  window 
if  C !w) 


printf (‘■\n\tUnable  to  open  window.  Aborting...’’); 
exit( 1 ) ; 

) 

wn_tiLle(w, '■  TABLE  OF  FEATURE  DATA  "); 

I*  Calculate  Conversion  Constants  required  to  properly  scale  and  convert 

*  pixels  to  dimensioned  units.  Depends  on  VSCALE  and  ASPECT_KATIO . 

*  ASPZCT_RATIO  is  defined  in  SEMEX.C 

*/ 

Cx  “  ASPECT_RATIO/yscale ;  /•  x  conversion  constant  */ 

Cy  *  1.0/yscale;  /*  y  conversion  constant  ♦/ 

Ca  *  Cx*Cy;  /*  area  conversion  constant  */ 

fprintf (fp, "\n\tConversion  constants;  Cx*2f  Cy^Xf  Ca*2f”.  Cx,  Cy,  Ca); 
wn_printf (w, " \n\n\tlmage  filename :  Xs" , filename) ; 

chgext  (datafile .  filename dat"  ) ;  /*  change  extension  to  .dat  */ 

fatrib  »  (BLUE«4)  |  WHITE  |  BOLD;  /*  field  color  */ 

wngtext (XEO, NFRM, NFLD , w, 4 , 1 , "Save  DATA  in  filename: 

fatrib , ' . IS .datafile . NSTR.NSTR) ; 
wn_printf (w, "\n\n\tSending  output  to  FILE  Zsln" .datafile) ; 
if(  (  fdata  •  fopenCdataf ile . "w" )  )  HULL  )  { 

wn_printf (w. " \ a\n\n\ tCANNOT  Open  output  file  Zs\n".  datafile): 
wn_printf (w. " \n\tPress  Any  Key  to  continue"); 
getchC ) ; 

♦m_close(K) ; 
retum(  1 )  ; 

) 

for(  j  =  0  ;  j  <  TOTAL  .  j++  )  ( 

xlen  =  xptr(j)  *  Cx;  /*  true  x  length  */ 

ylen  =  yptr[jl  *  Cy;  /"  true  y  length  */ 

fprintf ( fdata . "ZSd  210. 3f  210. 3f  28. 3f  28.3f\n".  J+1.  PI^*xien*y Len ,*( apt r+j ) *Ca , xlen , y ien ) 

) 
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v^_printf  (w,  ■’\n  ID  NO  AREA_C  AREA_M  X*-Chord  Y-Chord\n”  ) ; 
forC  j  *  0  ;  j  <  TOTAL  ;  j++  )  { 

xlen  *  xptr[j]  *  Cx ;  /*  true  x  length  */ 

ylen  *  yptr[j]  *  Cy;  f*  true  y  length  */ 

wn_printf  (w, '■  \nZ6d  Z10.3f  Z10.3f  Z8.3f  Z8.3f",  j  +  1,  PlA*xlen’'ylen,  C  aptr-'-j  )  *Ca  ,  xlen.  yle 
if  (  (jZ20)  ==  19  )  {  /*  pause  on  full  page  *{ 

wn_pr  intf  ( w,  ■' \n\ tPress  (ENTER)  for  MORE  or  [ESC]  to  QUIT”); 
if  (Cc  =  getch())  “=  ESC)  break;/*  quit  if  ESC  pressed  */ 
if  (j  !=  TOTAL  -  1)  /*  not  end  yet  */ 

wn_printf (w , ’ \n  ID  NO  AREA_C  AREA_M  X-Chord  Y-Chord\n" ) ; 

} 

} 

f c lose( f data ) ;  /*  close  data  file  */ 

/*  display  statistics  */ 
xlen  »  xinax*Cx; 
ylen  *  ymax*Cy; 
area  =  maxarea*Ca; 

wn_printf (w, "\n\n  AREA_M  X-Chord  Y-Chord”); 

wn_printf(w.  "Vn  Max  Z10.3f  Z10.3f  Z10.3f”,  area,  xlen,  ylen); 

fprintf(fp,  ”\n\t  AREA_M  X-Chord  Y-Chord”); 

fprintfCfp,  ■'\n\tMax  Z10.3f  Z10.3f  Z10.3f",  area,  xlen,  ylen); 

xlen  *  xmin*Cx: 
ylen  =  yTnin*Cy: 
area  «  minarea*Ca; 

wn_printf (w,  "\n  Min  Z10.3f  Z10.3f  Z10.3f”,  area,  xlen,  ylen); 

fprintf(fp,  '■\n\tMin  Z10,3f  Z10.3f  Z10.3f\n'‘,  area,  xlen,  ylen); 

wn_printf  (w,  ■•\n\n\tPress  Any  Key  to  continue"); 

v_kf lushC ) ; 

getch( ) ; 

wn_close(w) ; 

return(O);  /*  signal  healthy  end  */ 


End  of  file  SIZE.C  */ 
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i<  rti»i»Art»»*i**yri*******'*#i^A'***i»A'»*'*yr**W**********»»****<r******>»i******AWrtrtAw 

"  FILENAME;  ANALYZE. C 
"  called  BY:  SEMEX  mainO 

^  LAST  MODIFIED;  U  Mar  91  by  LEE,  YEAW-LIP 


P'JRPOSE;  This  set  of  routines  analyzes  the  data  files  put  out  by 

the  size()  functions.  "^t  first  allows  the  user  to  specify 
the  data  files  and  then  merges  the  data  from  them  into  an 
array.  The  volume  and  data  are  then  calculated  and  a 
histogram  built  using  histo_vol().  This  can  be  plotted 
using  SEM.M  inside  MATLAB. 


i 


vinclude  "global. h'  /* 

^'include  <dos.h>  /* 

^finclude  <math  h>  {*' 

«include<string.h^  /* 

tvpedef  struct  {  f* 

char  name [13;,  / * 

*.v;.^def  struct  '  /* 

long  type.  /" 

long  mrows  .  / *’ 

long  ncols  ,  .'  *• 

Long  imagf ,  /* 

long  namlen.  I*' 

■  Fmatnx, 

static  SLIST  *list;  f* 

static  char  sdate(13]:  /* 

static  int  fatrib;  /* 

static  float  •cptr;  /• 

static  size_t  memsize;  /* 

static  int  Nfiles;  /• 


required  by  all  SEMEX  modules  *' ! 
dos  prototype  definitions  */ 
math  prototype  definitions  */ 
string  handling  prototype  defn  */ 

structured  list  of  file  pointers  */ 
string  to  contain  data  file  *'/ 

Ma- ■  ab  MAT-file  structure  **  / 
type  */ 

row  dimension  */ 
column  dimension  */ 
flag  indicating  imag  part  */ 
name  length  (including  NULL)  I 


Define  pointer  to  list  *l 
date  string  */ 
field  attribute  */ 
pointer  to  area  store  */ 
size  of  memory  allocated  */ 
number  of  data  files  */ 


analyze ( ) 

{ 

extern  int  merge_data(WINDOWPTR  wn); 

extern  void  histo_vol (WINDOWPTR  wn); 

WINDOWPTR  wn; 

int  watrib,  batrib; 

char  c; 


/*  prototype  definition  */ 

/*  ditto  •/ 

/*  window  handle  */ 

/*  window  and  border  attributes  */ 
/*  scratch  for  user  response  */ 


watrib  *  v_S0tatr (WHITE , BLUE , 0 . 0 ) ;  /*  window  attribute  */ 

batrib  ■  v_setatr (RED , WHITE , 0 , BOLD ) ;  /*  border  attribute  */ 

fatrib  ■  (BLUE  <<  ^  )  I  WHITE  i  BOLD;  /*  field  attribute  defined  */ 

wn  *  wn_open ( 500 . 8 . 13 , 52 , 13 .watrib , batrib ) ;  /♦  open  dialog  window  */ 

if ( fwn)  { 

printf ("\a\nUnable  to  open  window.  Aborting...*’); 
exitC 1 ) ; 

} 

wn_title (wn , "  ANALYSE  FEATURES  ”); 

if  C  Cfp  =  fopenCsession, "a" ) )  *=  NULL)  { 

wn_printf (wn \ a\n\n \ tunable  to  open  session  file  2s” . session ) ; 

wn_printf(wn.  \n\n\tPreS5  any  key'); 

getchC  )  , 

wn_close(wn) ; 

return( 1 )  ; 


} 

else 

fprintf  (  fp,  '■  \nANALYZE  ;  Merging 
if  (merge  data(wn)) 
goto  err; 
hi sto_vol ( wn ) , 
fclose(fp) ; 
wn_c lose ( wn ) ; 


/*  session  file  opened 
data  files” ) ; 

(*  merge  data  files  ♦/ 

I*  terminate  if  error  */ 
I*  histogram  the  data  */ 
I*  close  session  file  */ 
/*  close  window  */ 
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return ( 0  )  ; 


err  ; 

fpr  intf  C  fp.  ■' 
fcIoseC  fp) ; 
wn_c lose ( wn ) , 
return( 0 ) ; 


ANALYZE 


aborted 


/*  error 

/*  close 
/*  close 


trapped  */ 
session  file  •'/ 

Window  */ 


merge  data()  prompts  the  user  with  all  files  with  extensioi’  .dat  from 
which  to  merged  data.  Selected  files  are  written  into  a  list 


ge_data(WINDOWPTR  wn ) 

extern  void  get_dates ( uns igned  date); 
extern  int  ext rac t _d? t a ( WINDOWPTR  wn. 
char  c  ; 

int  Area_type: 
struct  find  t  d  file. 


/*  prototype  definition  / 
int  Ncol);  /  •'  ditto  "Z 

/*  scratch  for  user  response  ", 

Z**  defines  type  of  area  to  use  ”, 
/*•  structure  of  data  files  ”/ 


wn  title(wn,"  SELECT  DATA  FILES  “ ) ; 

Nfiles  *  0;  /**  initialize  file  counter  / 

wn_cir(wn);  /*  clear  dialog  box  "/ 

_dos_findfirst("* .dat" ._A_N0RMAL,  &d_£ile);  /*  get  first  occurrance  */ 

get_dates(d_file.wr_date);  /*  returns  date  string  to  sdate  * / 

wn  pr intf C wn , " \ n \n \ t  DATA  FILENAME  DATE  CREATED  ); 

wn^locateCwn, t t ) ;  /*  place  cursor  at  row, col  ' / 

wn^printf  (wn,  ■■  Z12s  Zs  \n\n\tInclude(Y]  ?’', d_£ile . name  ,  sdate ) ; 

V  kflushC),  empty  keyboard  buffer 

c  ■=  getch():  /*  get  user  response  •/ 

if  (  (c»='Y')  II  (c-='y')  II  (c-=ENTER)  )  { 

if  ((list  =  (SLIST  *)calloc(l,si2eof(SLIST)))  -=  NELL)  {  /*  allocate  memory  */ 
wn_prlntf  (wn , '■  \  a\n\n\ tNo  memory  to  allocate"); 
wn_printf(wn, "\n\n\tPress  any  key  to  continue"); 
getch( ) : 

return(l);  /*  signal  error  back  */ 


) 

strepy ( list [Nfi les ]. name , d^fi le .name ) ;  /*  save  filename  into  list  */ 

Nfiles-t-t-;  /*  increment  file  count  */ 

} 

/*  find  the  rest  of  the  data  files  */ 
while  (_dos_findnext(&d_file)  “  0)  { 

get  datesCd  f i le . wr_date ) ;  /•  returns  date  string  to  sdate  */ 

wn  locate (wn , c , 4 ) ;  /*  place  cursor  at  row, col  */ 

wn  printf  (wn,  ■■  Z12s  Zs  \n\n\tFile  Count:  Z3d\tIncludetY)  , d_fi ie . name ,  sdate  ,  Nfi les  ) ; 
V  kflush();  /*  empty  keyboard  buffer  */ 

c  -  getch();  /*  get  user  response  ■*/ 

if  (  (c—’Y')  II  (c-=’y)  II  (c— ENTER))  { 

if  ((list  *=  (SLIST  •)reailoc(  (void  *  )list .  (Nfiles  +  1  )*sizeof  (SLIST  )) )  =-  NULL)  { 
wn_printf (wn, "lalnVnltNo  memory  to  reallocate"); 
wn_pr intf (wn . "\n\n\ tPress  any  key"); 
getch( ) ; 

goto  errl;  /*  abort  */ 

) 

strcpy( list [Nfiles] .name , d_file .name) ;  /*  save  filename  into  list  */ 

Nfiles-t-t-;  /*  increment  file  counter  */ 


) 

if  (  c  ESC  )  break;  /*  enough  already  */ 

)  /*  end  while  */ 

wn_printf (wn, "\n\n  Zd  datafiles  selected  in  this  directory” .Nfiles ) ; 
wn_printf (wn. "\n  Press  [Enter]  to  Histogram  data  or  (Esc)  to  Abort”); 
V  kflush();  /*  flush  keyboard  buffer  */ 

if  (  getcho  -=  ESC)  /*  get  user  response  ♦/ 

goto  errl;  /*  abort  */ 

/*  allocate  memory  for  first  element  •/ 
memsize  “  sizeof ( float ) ; 

if  ((cptr  -  (float  * )calloc ( 1 .memsize ) )  “  NULL)  { 
wn_printf (wn, "\a\n\n\LNo  memory  to  allocate"); 
wn_printf (wn, "\n\n\tPress  any  key"); 


* 
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getchC ) : 

goto  errl;  /*  signal  error  back  */ 

} 

wr,_printf:(wn,  "\n\r.\tUse  Oalculated  or  M)easured  area  [CJ  ?"); 

/*  clear  keyboard  buffer  / 

c  =  getchC);  /*  get  user  response  *' f 

if  C  Cc  ==  'M' )  II  (c  -=  'm' )  )  { 

Area^type  -2.  /♦  use  measured  area  AREA  M  * / 

fprintf t fp ,  " \n\ tExtracting  MEASURED  Area  from"); 

else  { 

Area^type  =1;  use  calculated  area  AREA  C  *’ 

fprintf  (fp.  ■‘\n\tExtracting  CALCULATED  Area  from"); 

ex t rac t_data ( wn  .  Ar ea_type  ) ;  /*•  extract  area  from  col  2  */ 

return(O);  f*  signal  back  OK  ’*/ 


errl : 

freeCiist)  ; 
return ( 1)  ; 


/**  termination  sequence  */ 
/«  deallocate  memory  */ 

/*  signal  back  abort  */ 


^  Get  date  string  given  a  dos  date  code 

returns  date  string  to  sdate  declared  static 

date  format  is;  Bits  0  -  A  ;  Day  of  the  month  (value  between  1  and  31) 
5  -  8  ;  Month  (value  between  1  and  12) 

^  9  -  15;  Year  since  1980 


void 

get^dates (unsigned  date) 

{ 

char  *mth:  /*  month  string  */ 

unsigned  rnm.dd.yy;  /*  date  variables  */ 

static  char  •month[12]  =  {  "Jan" , 'Teb" . "Mar" /’Apr" , "May" . "Jun” . 

"Jul" . "Aug" , "Sep" , "Oct" , "Nov" , "Dec"  } ; 

dd  =  date  &  OxOOlf;  get  bits  0  to  4  */ 

rm  *  (date  &  OxOleO)  »  5;  /•  get  bits  5  to  6  */ 

yy  “=  (date  &  jxfeOO)  »  9;  /*  get  bits  9  to  15  *l 

sprintf (sdate. "22u  23s  24u" ,dd,month(nin-l) ,yy+1980) • 

} 


} 


» 
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/"  extract_data(  )  extracts  a  single  column  of  data  from  a  specified  file 
extract  dataCWINDOWPTR  wn .  int  Ncol) 


FILE  *dfp; 
f Loat  col [ 5] : 
int  fid; 


/*  data  file  pointer  */ 

/*  scratch  array  */ 

/*  scratch  feature  counter 
/*  scratch  counter  */ 


wn_c Ir ( wn ) ; 

wn_t 1 1 le ( wn , "  EXTRACTING  DATA  "  )  ; 

TOTAI-  =  0;  /*  initialize  total  no  of  feature 

for  (i=0;  1  <  Nfiles,  i++)  {  /*  read  a  data  file  */ 

if  ((dfp  *  fopenC  list  [  1  ],  name  , ''r”  ) )  ==  NULL)  {  /*  read  data  within  *■' 

wn_printf  (wn ,  "  \  a \n\n\ tCANNOT  Open  datafile  2s’’ ,  list ( i  ].  name ) ; 
wn__printf (wn,  ■'\n\n\tPress  any  key  to  continue"); 
getch( ) ; 

return(l);  /*  error  recovery  *l 


wn_printf  (wn, ’‘\n\t2s’' ,  list  [  i  ].  name ) ;  /*  display  data  file  */ 


fprintf  (fp,  "\n\t\t2s‘' ,  list ( i  1  . name )  ;  /*  record  date  file  name  */ 

while  (fscanf  Cdfp,"  2d  2f  2f  2f  2f  ",  &f  id  ,&col  [  1 )  .&col  [2]  ,  &col  [  3  ]  ,  fitcol  [  4  ]  )  !=  EOF) 
{  I*  read  in  data  */ 

cptr[TOTALI  =  col[Ncoll;  /*  use  requested  column 

TOTAL /*  increment  total  #  *"/ 

/*  allocate  memory  for  1  more  element  */ 

memsize  sizeof  (  float )  ;  /*  increase  memory  counter  */ 

if  ((  cptr  *  (float  *>  realioc ( (void  *)  cptr,  memsize  ))  ==  NULL)  { 
wn_printf (wn, " \a\n\n\tRealiocation  Failed.  Out  of  memory  "): 
wn_pr int f ( wn ,  \n\n\ tPress  any  key”); 
getchC ) : 


fclose(dfp) ; 
return( 1 ) ; 


/*  close  data  file  */ 
I*  error  recovery  */ 


}  /*  end  while  fscan  dfp  *! 
fclose(dfp) ; 

wn_pr intf (wn . " \n210d  extracted.  Running  Total  is  Zld”,  fid,  TOTAL); 
fprintf (fp. "210d  extracted.  Running  Total  is  lid",  fid,  TOTAL); 

}  /•  end  for  loop  */ 

v_kflush();  /*  empty  Keyboard  buffer  */ 

wn_printf(wn, "\n\n\tPress  (Enter)  to  Histogram  or  (Esc)  to  Quit"); 
free(list);  /*  deallocate  memory  */ 

if  C  getchC)  “=  ESC  )  return(l);  /*  quit  if  ESC  pressed  *l 

return(O):  /*  successful  */ 


f*  histo_vol()  uses  the  merged  data  from  merge_data( ) ,  converts  it  to  volume 
*  and  collates  the  data  into  36  bins  so  that  a  histogram  is  obtained. 


^define  BINS  38 


/*  No  of  bins  ♦/ 


void 

histo  voKWINDOWPTR  wn) 


extern  void  savematCFILE  *fptr,  int  type, 
int  mrows,  int  ncols, 
double  *preal,  double 
char  histfile[20] ;  f* 

FILE  *fh; 

double  PI  -  3.1A1593: 

double  UPPER  -  180.0;  f* 

double  STEP  =  0.826A;  /' 

static  double  volume [ BINS ] ;  f* 

static  long  count(BINS] ;  f* 

double  limit [BINS+1 ] ;  I* 

double  tot_vol  *  0.0;  (* 

double  toosmall  =0.0;  f* 

int  reject  •  0;  I* 

double  diam,  vol;  I* 


char  *pname,  /*  prototype  definition 
int  imagf,  /*  for  saving  data  */ 
*pimag);  /*  in  MATLAB  form  */ 
histogram  file  ♦/ 
file  pointer  */ 
define  pi  */ 

upper  limit  of  histogram  */ 
same  as  Malvern  MasterSizer  *! 
bins  to  contain  volumes  *! 
bins  to  contain  counts  ♦/ 
array  of  Limit  values  *( 
total  volume  *{ 

bin  to  contain  small  particles  */ 
track  rejects  */ 

diameter  and  volume  variables  *( 
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J 


A 


double  C; 
double  R2 ; 
int  1  ; 
long  j ; 
double  Nf,  T; 
char  c ; 


/*  constant  *  A/3pi  */ 

/*  scratch  =  Area/PI  */ 

/*•  scratch  index  counters  */ 

/*  scratch  particle  counter 

/**  scratch  for  type  conversion  *' ! 

/*  scratch  for  user  response  */ 


wn 


1  ir. 
for 


c Ir (wn ) ; 

title(wn.-  HISTOGRAM  VOLUMES  " )  ; 
PI  ^  ^*.0  /  3.C; 
t[0j  =  UPPER; 

(1  =  0;  1  <  BINS;  1+-*-)  { 
limit[i  +  l]  =  lirnit[ij  *  STEF; 
volume [ 1 ]  =  C . 0  ; 
count [ 1 ]  =  0  ; 


/*  constant  of  proportionality  *' ! 
I*  assign  upper  limit  to  element  0 

f*  generate  limits  for  each  bin  *’ ! 
/*  initialize  volume  bin  */ 

/*  initialize  count  bin  */ 


/ 

wn 

‘or 


pr int f (wn , " \n\n\ tCalculating  equivalent  volumes..."); 

(j-0.  J  TOTAL;  jr+)  {  /*  repeat  for  all  particles  */ 

/*  calculate  the  equivalent  volume  assuming  a  sphere,  given  area  */ 
R2  =  cptr(j]/PI;  /*  square  of  the  radius  */ 

diam  =  2,0  *  sqrt(R2);  /*  diameter  of  particle  */ 

vol  =  C  *  pow(R2,1.5);  /*  volume  of  particle  */ 

tot_vol  +=  vol;  /*  accumulate  total  volume  */ 

!*  sieve  the  volumes  and  collate  into  the  correct  bins  */ 
if  (diam  >  UPPER)  {  /*  too  large  */ 

wn_printf (wn , " \n\ tMassive  particle  Volume=Ig.  Si2e=Jf" , vol , diam) ; 
fprintf  ( fp ,  \n\ tMassive  particle  Volume=Zg.  Si2e=Zf'' ,  vol ,  diam) ; 
continue ; 

) 


l  =  0; 

while  (TRUE)  ( 

if  (diam  >  limit(i+ll)  { 
volumeti]  +=  vol; 
count  1 i ] ++ : 
break ; 

) 

else  { 
ir+: 

if  (1  >«  BINS)  { 

toosmall  +•  vol; 
reject-*-*-; 
break ; 

) 


/*  repeat  until  right  bin  found  "/ 
/*  found  *! 

/*  accumulate  volume  in  bin  */ 

/*  increment  count  */ 

/*  get  out  of  while  loop  */ 


/*  check  next  smaller  bin  */ 
/*  no  more  bins  •/ 

/•  put  these  into  toosmall  */ 
I*  Increment  reject  */ 

/*  get  out  of  while  loop  */ 


)  /*  end  if-else  */ 

)  /*  end  while  */ 

}  /*  end  for  j  */ 

fprintf ( fp \n\tZd  particles  <  Zf  rejected.  Volume™  Zg  or  Z6 , 3fZZ" , reject , limit [BINS] , toosmall , 
toosmall*100/tot_vol) ; 

/*  display  results  •/ 

wn_printf (wn , " \n  BIN  UPPER  LOWER  Volume  ZZ  Total  Vol  Count"); 
for  (i  =  0;  i  <  BINS;  1-*-+)  { 

if  (limit[i]  >  100.0)  /•  use  one  decimal  point  only  »/ 

wn_printf(wn, "\n  Z3d  ZS.lf  ZS.lf  Z10.2f  Z6.2f  Z51d", 

i-H ,  limit ( i  J  ,  limit [ i-*-! J  ,  volume [ ij , volume [ i ] *100 . 0/tot_vol ,  count [  i  ]  ) ; 
else  /*  use  two  decimal  points  */ 

wn_printf(wn,"\n  Z3d  Z5.2f  Z5.2f  Z10.2f  Z6.2f  Z51d". 

i-t-1 ,  limit ( 1  ] ,  limit [ i-*-!]  .volume [ i ] , volumeti ) *100 . 0/tot_vol ,  count [ i  ] ) ; 
if  (iZlO  "  9)  {  /*  10  bins  at  a  time  */ 

wn_printf (wn, "\n\n\tPress  (Enter]  for  More"); 
v_kflush();  /*  empty  keyboard  buffer  */ 

getchC);  /*  wait  for  user  response  */ 

if  (i  !“  BINS  -  1)  t  /*  not  last  bin  yet  */ 

wn_clr(wn);  /*  generate  new  screenful  */ 

wnjprintf (wn , " \n  BIN  UPPER  LOWER  Volume  ZZ  Total  Vol  Count"); 

) 


} 

} 

/*  Print  out  results  */ 

chgext (histfile ,  session .his"  ) ;  /*  form  histogram  file  name  */ 
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} 


wr._printf  (wn .  \n \n\ tPrinting  results  to  2s"  .histfile) ; 
fprintf  (fp,  ■■\n\tPrinting  results  to  Xs"  ,histfile) ; 
if  ((fh  “  fopen  (histf  ile  , a"  ) )  “=  NULL)  ( 

wn_printf (wn. "\a\n\n\tCANNOT  Open  file  Is" . histf ile ) ; 
wn_j3rintf (wn,  ■■\n\n\tPress  any  key’*); 
getch( ) ; 

goto  err3;  /*  premature  termination  */ 


} 

fpr intf ( fh . " \n  2s:  Data  from  2d  data  files.  Total  Particle  count:  21d" , hi s tf i le , 
fprintf ( fh \n  BIN  UPPER  LOWER  Volume  22  Total  Voi  Count  2"  Total  ); 

for  (i=0;  1  <  BINS;  1++)  /*  write  to  histogram  file 

if  (limit(i]  >  100.0)  /*  use  one  decimal  point  only 

fprintfCfh.  ■■\n  23d  25. If  25. If  210. 2f  26. 2f  251d  26. 2f'. 

Iimit[i  +  1] . volume ( i j . volume ( i ] *100 . 0/ tot_vol , count  1 1 ] , count [ i ] *  ICO . 
else  /*  use  two  decimal  points  */ 

fpnntfCfh, ‘■\n  23d  25. 2f  25. 2f  210. 2f  26. 2f  25id  25. 2f", 

limi t ( i+1 } . volume t i ) . volume ( i ) *100 . 0/tot_voi . count [ i ] , count [ i ] *100 . 
fcIoseCfh);  /*  close  histfile  */ 

wn_printf(wn,  ■'\n\t2d  Files  extracted;  Particle  Count  *  2id" , Nf lies , TOTAL ) ; 
wn_printf  (wn  .  " \n\ tGenerate  a  MATLAB  MAT-file  [Y]  ?’’); 


Nf lies. TOTAL; 


C/ TOTAL ) ; 


1+1. l2 
0/ TOTAL 


/*  prevent  spurious  inputs  */ 
/*  get  user  response  */ 

/*  generate  MAT-file  */ 


,  fatrib . 


v_kf lush( ) ; 
c  »  getchC ) ; 

if  C  (c  !-  ‘N’)  &&  (c  !='n'))  { 

chgext (histf 1 le . session mat ") ; 
wr._^clr(wn) ; 

wn_gtext (XEQ . NFRM, NFLD , wn , A , 4 , "MATLAB  MAT— filename 
wn_pr intf ( wn , ” \n\n\ tPrinting  MAT-file  2s " .histfile ) ; 
fprintfvfp, "InVtPrinting  MAT-file  2s" .histfile) ; 
if  ((fh  =  fopen(histf ile . "w+b" ) )  -=  NULL)  { 

wn_printf (wn, " \a\n\n\tCANNOT  Open  file  2s" .histf ile ) ; 
wn^printf (wn. "\n\n\tPress  any  key"); 
getch(  ) ; 

goto  err3;  /*  premature  termination 

) 


18.  histfile, NSTR.NSTR) 


Nf  *  (double )Nf lies ;  /*  for  proper  type  casting  */ 

T  *  (double)TOTAL:  /*  ditto  */ 

/*  MATLAB  variables  will  be: 

*  'Nf lies total limit ' ,  'totalv'  and  'volume' 

*/ 


savemat(fh. 
savematCfh, 
savemat(fh, 
savemat ( fh , 
savemat ( fh , 
savemat( fh . 
fclose(fh) ; 

} 

err3 : 

free(cptr ) ; 


0.  "Nfiles",  1.  1.  0.  &Nf.  (double  *)0.0); 

0,  "total",  1,  1,  0,  &T.  (double  *)0.0); 

0.  "limit",  1,  BINS+1,  0,  limit,  (double  *)0.0): 

0,  "volume",  1.  BINS,  0,  volume,  (double  *)0.0); 

0.  "totalv",  1,  1,  0,  &tot_vol,  (double  *)0.0); 

0,  "count",  1.  BINS,  0,  (double  *)count,  (double  *)0.0); 

/*  close  MAT-file  */ 

/*  terminate  stage  */ 

/*  deallocate  dynamic  memory  */ 


I 


M 
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"  savemat  -  C  Language  routine  to  save  a  matrix  in  a  MAT-file. 

Author  J.N.  Little  11-3-86 
^  Adapted  by  Y.L.  Lee  26  reb  SI 


savemat C fptr .  type,  pname .  mrows, 
FILE  ’^fptr: 
int  type; 


:r.t  mrows; 
ir.t  r.cols; 
ir.t  imagf, 
cF.ar  *pncime  ; 
u::ut  Le  *preaL  ; 
uout  le  "^pimag  ; 

Fmatrix  x, 

1  n  t  mn  . 

X  type  =  (Long)  type, 

X  mrows  =  (Long)  mrows 
x.ncoLs  =  (Long)  ncoLs 
X. imagf  *  (Long)  imagf 
X  namLen  =  (Long)  ( strLen ( pname )  + 
mn  *  X. mrows  *  x.ncoLs; 


ncoLs.  imagf,  preal,  pimag) 

/*  File  pointer  *! 

/*  Type  flag:  0  for  PC 
I*  Add  1  for  text  variables 
/*  See  LOAD  for  more  info. 
/*  row  dimension  */ 
f*  colunm  dimension  */ 

/*  imaginary  flag  */ 

pointer  to  matrix  name  ** 
/*  pointer  to  real  data  • 
/*•  pointer  to  imag  data  , 


fwrite(&jc.  sizeof (Fmatrix ) .  1.  fptr); 
fwrite(pname.  s i zeof ( char ) .  ( int )x , namlen .  fptr); 
fwrite(preaL .  sizeof (double) .  mn.  fptr); 
if  (imagf)  { 

fwrite (pimag .  sizeof (double) ,  mn.  fptr); 

} 


/•*  End  of  file  ANALYZE. C  */ 
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"  FILEN.^ME  :  SEMIC  C 

CALLED  BY-  Various  SEMEX  functions 
LAST  MODIFIED  :  7  Mar  31  by  LEE  YEAW-LIF 


FCRPOSE  getim'w.n)  -  reads  in  an  image  from  disk 
putifn(w.n)  -  saves  an  image  to  disk 
where  r.  =  j  appends  img  to  fiienaume  (raw  image) 

1  appends  iml  to  filename  (dipped) 

L  appenas  im2  to  filename  (tagged) 

L  appends  . im3  to  filename  (sized) 
chgext ; fd  , f s  .  "ext  j  "  replaces  the  extension  in  the  sou 
and  copies  it  to  the  destination 


All  these 


functions  have  been  declared  globally 


^include  "global. h' 
^‘include  <string,h> 
^'include  <math,h> 


/"  recpjired  by  all  SEMEX  fi)es  " 
/*  string  handling  prototypes  "/ 
/*  math  function  prototypes 


static  char  "digit  =  ■'123^567890"; 


/"  define  a  digit  */ 


"  Read  an  image  from  disk 

’■  passes  a  window  handle  and  the  default  file  extension  where 
0;  ,  img ,  1:  .iml.  2:  .im2.  3'  .  im3 


getim(WINDOWPTR  w.int  n) 

int  errval; 

char  c .  *Iine2 ; 

char  "margins; 

char  "vs : 

char  "Im.  "rm; 

static  char  fbuf (MAXFLEN] ; 

unsigned  fatrib; 


/"  scratch  for  errors  "/ 

/*  scratch  */ 

/"  loc  of  margins  in  comline  "/ 
/"  loc  of  VSCALE  in  comline  "/ 
/"  left  and  right  margin  loc  "/ 
/*  filename  buffer  "/ 

/"  field  attribute  */ 


wn  clr(w).  /*  clear  screen  */ 

wn  pr intf  ( w, '■  \n\ tREAu  IMAGE  FROM  FILE  "  ) ; 

strcpyCfbuf. filename);  /*  make  copy  of  filename  "/ 

wh i 1 e  C 1 ) 

{ 

switch  (n)  /*  decide  which  default  ext  "/ 

{  /"  to  use  "/ 

case  1: 

chgext( filename , fbuf iml” ) ;  /*  clipped  image  "/ 

break ; 


case  2: 

chgextC filename . fbuf im2” ) ;  /*  tagged  image  */ 

break ; 
case  3: 

chgextC  filename ,  fbuf  im3'‘ ) :  /*  sized  image  */ 

break ; 
case  0 ; 
default ; 

chgextCfilename, fbuf .".img ■);  /*  raw  video  image  "/ 

break : 

}  /*  end  switch  */ 

fatrib  •  (BLUE«A)  |  WHITE  I  BOLD;  /*  field  color  */ 
wn_gtexL (XEQ ,  NFRM ,  HELD , w ,  2 , 1 ,  "Fi lename  :  ,  fatrib , 

'  16 , fi lename , NSTR . NSTR ) ; 

errval  =  readimC IXS , lYS , NCOL , NROW, filename . comline ) ; 
if(errval  -=  0)  {  /*  image  successfully  read  ♦/ 

wn_wrap(w,TRUE) ;  /*  allow  for  word  wrap  */ 

wn_printf  (w, '•\n  CObMENTS:  \n  Is'  . comline ) ; 

/*  check  for  2nd  comment  line  */ 

if  ((line2  -  strrchr ( comline \n ') )  !•  NULL)  { 

/•  Locate  the  start  of  the  keyword  "Margins-"  */ 
if  ((margins  -  strstr ( line2 . "Margins- ") )  '*  NULL) 


% 


A 
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'*  exist-s.  extract,  them  *, 

margins  =  st  rpb  rk  ( margins  .  digit  locate  starimg  ;; 

l.T  =  at  o  1  ( ma  rg  ins  )  ,  extract  xei:  .....  •. 

margin.'’^  =  str  j;brk  imargins  .  .  ).  '*  locate  seraratc; 

**  ski;  c'Ver  conna  an:J  extract  right  margin  , 

RT  MARGIN  =  atr.i  ■. -'-♦margins  ,  .' ■*  extract  iigh'  r.a: 

”  Locate  t;.e  s'art  at  the  ki^'.'work  '  VSCALE  ** 

i  >  (vs  =  s t r s t  r  ,  1  i neL  .  V3CALE-  ;  *=  NL’LL) 

*  VLCALE  e.xists.  extract  it  *. 
vs  =  s  t  r  j:  t  rx  ;  vs  ,  d  1  g  1 1  .  •  locate  starting  iigi’  ’* 

VSCALE  =  :  float  atof  vs:  ,  ,  **  vertical  s.cale  fa.cto:  " 


i 

»> 


w.'._pr  int  f  :  w  ,  'r.\r.  trress  anv  key  to  continue  ) . 

v_kflush();  ■  *"  prev'ent  premature  keystroke 

g  e  t  c  h  (  )  : 

return(C),  *  all  is  well  */ 

} 

else  {  '*  problem  */ 

swi tch ( errval  ) 


case  FlLE_ERRCr: 

wn_pr  ir.t  f  ( w .  '  \  n\  tErrcr  opening  f  i  le\n'' ) . 
b  r  e  ak  , 

case  FORMAT_ERKO?. : 

wr.  pr intf  ( w . \n\ tUnknown  file  format \r.”  )  ; 
break ; 

case  READ_EFiiOR, 

wn^printf (w.  " \n\tError  Reading  fiie\n”). 
break  . 
default : 

wr._pr int f  ( w ,  \n  \  tUnknown  Error  Id \n  ' .  errval ) ; 
break  : 

}  /*  end  switch  */ 

wn_printf (w. " \a\n\tTry  Again  fY]’\n’); 

v_kflush();  /*  empty  keyboard  buffer  first  ", 

c  *  getch().  /*  get  response  */ 

if(c  ■*  ’N'  II  c  •»  'n')  return(l):  /*  signal  problem  back  " 

}  /*  end  if-else  */ 

wn_cLr(w);  /*  clear  window  and  try  again  */ 

)  /**  end  while  */ 

} 


*  Save  an  image  to  disk 

passes  a  window  handle  and  file  extension  where 

*  0;  .img,  1;  .iral,  2:  .iai2,  3:  .  im3 
*/ 

putimC WINDOWPTR  w,int  n) 

{ 

unsigned  fatrib;  /*  field  attribute  */ 

int  errval;  /*  scratch  for  error  handling 

char  c;  /•  scratch  */ 

static  char  fbuf [MAXFLEN] ,  ext[5];  /*  scratch  strings  */ 


wn_cir (w) ; 

wn_printf  (w,  ■'\n\tSAVE  IMAGE  TO  DISK  "  ) ; 
strcpy C  fbuf , filename ) ; 

wh 1 1 e  C 1 ) 

{ 

switch  (n) 

{ 

case  1 

strcpyCext,  ' . iml  ’ ) ; 
chgext ( filename . fbuf , ext ) ; 
break  ; 
case  2; 

strcpyCext . " . im2” ) . 


/*  clear  window  */ 

/*  make  copy  of  filename  */ 

/*  decide  which  ext  to  use  */ 

f*  append  default  ext  .  iml  '"/ 

/*  append  default  ext  . im2  */ 
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chgexL ( filename , fbuf . ext ) ; 
break ; 
case  3 ; 

strcpy {  ext .  .  im3"  )  :  /*  append  default  ext  .  imS  */ 

chgext ( filename , fbuf , ext ) ; 
break  ; 
car?  ^  • 
default • 

strcpyCext,  img");  /*  append  default  ext  ,  imA  ’*/ 

chgext ( filename , fbuf . ext ) ; 
break  ; 

}  /*  end  switch 

fatrib  =  (BLUE«^)  |  WHITE  [  BOLD;  I*  field  color  */ 
wn_gt ext  C  XEQ . NFRM . NFLD , w . 2 . 1 . "FILENAME :  " , 
fatrib, . 18. filename . NSTR , NSTR) ; 
j*  append  image  defaults  into  second  conment  line  */ 

spr int f C comline2 . "  Gain®  Z3d;  Offset*  Z3d;  Margins*  Z3d,  Z3d:  VSCALE=  Z7.3f  , 

GAIN_LVL.0FFSET_LVL.LT_MARGIN,RT_MARGIN,VSCALE) ; 
wn_wrap( w .  TRUE  )  ;  /*  allow  for  word  wrap  *•  / 

wn_printf (w. " \n  COf^^ENTS ; \n\nZs" , comline2) ; 

wn_gtext (XEQ . NFRM , NFLD , w , ^ , 1 . NSTR .fatrib, ,A8, comiinel , NSTR, NSTR ) ,  A 

strcpy  (  comline  .  comlinel )  ;  f*"  copy  first  line  of  comment  *' j 

strc  at ( comline , " \n" ) ; 

strc  at  (  comline  .  comline2  ) .  /*  append  additional  contrients 

wn_pr int f ( w , " \n \n \n \n\ tStoring  Image 

errval  *  saveimC IXS . I YS . NCOL . NROW, COMPRESSION , f i leneune . comline ) ; 
ifCerrval  ==  0)  ( 

wn_pr int f (w \n\n\ t Image  successfully  SAVED"); 
returnfO);  (*  all  is  well  •/ 

} 

else  { 

wn^printf (w, " \a\n\tError  saving  file??”); 
ifCerrval  -*  ALLOCATION_ERROR) 

wn_printf (w. "\n\tlnsufficient  Disk  Space”); 
ifCerrval  WRITE_ERROR) 

wn^printf Cw. ” \n\tError  writing  file  or  values”); 
wn_printf  Cw, '’\n\n\tTry  Again  [Y]?”); 

v_kfLush();  /*  empty  keyboard  buffer  first  */ 

c  ■  getchC  ) ; 

ifCc  “  'N'  II  c  —  'n')  retum(l);  /*  signal  problem  back  */ 
wn_clr (w) ; 

)  /*  end  if-else  */ 

wn_cir(w);  /•  clear  window  and  try  again  */ 

}  /*  end  while  */ 

)  f*  end  putim  */ 

!*  Takes  the  source  filename,  fs,  strips  it  of  its  extension,  copies  it  to 
*  the  destination  filename,  fd,  and  appends  the  new  extension,  ext,  to  the  end. 

*/ 

void 

chgextCchar  *fd,char  *fs.char  *ext) 

{ 

char  ‘period;  /‘  indicates  position  of  the  period  */ 

int  len;  /*  gives  length  of  filename  less  extension  ‘/  i 

period  *  strrchrCfs . ' . '  ) ; 

len  *  strien(fs)  -  strlenCpenod ) ;  ^ 

stmcpy ( fd ,  fs .  len) ; 
fdtlen]  -  * \0' : 
strcatC fd. ext ) ; 

} 

/*  End  of  file  SEMIO.C  */ 
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^  *:i.e  5EM  M  use:i  tor  plotting 

;  '...grar:  ct  laili  .e  Vc'^irr.e 
-  I  r. :  var  i  abies  are 


total 
total*.- 
Nf 1 les 
limit 
volume 


Total  Number  ci  Particles 

Total  Vobume  of  Particles 

N'umbter  of  data  files  merged 

array  containing  the  limits  of  the  bins 

array  containing  the  volume  in  each  bin 


clear 


cl& 

c  Ic 


BINS  =  38;  Z  No  of  bins 

fprintf C ' \n\nPLOT  HISTOGRAM  FUNCTION \n\n ’) ; 

file  =  input (’ MAT^fi lename  to  plot: 

evaK  (  ’  load  '  file]  )  ; 

zs  =  0  ; 

ans  =  inputC'Do  you  want  to  input  Malvern  data  (Y/NJ?  '.’s'): 
if  tans  ==  ‘Y’  I  ans  *=  ’y' ) 
format  compact 

ms  =  zeros ( 1 ; BINS ) ;  Z  allocate  BINS 

for  i  =  1:31  2  Malvern  has  31  bins  only 

msti)  =  input  ( (nuin2str  ( 1 )  Range  ’  num2str  ( limit  ( i ) ) 
num2str ( limi t( i+l ) )  '  Percent  Vol  =  ')) 


end 

for  1  =  BINS: -1:1  2  form  histogram  for  malvern  data 

zi  =  ms  1 1 ) : 
zs  =  (zs  zi  zi  0] : 

end 

end 

xs  =  limit(BINS+l) : 
ys  *  0 ; 

for  1  =  BINS: -1:1  Z  form  histogram  for  SEMEX  data 

xh  *  limit(i); 
xl  =  limitt 1+1 ) ; 
yi  *  volumeti )+100/totalv; 
xs  *  Cxs  xl  xh  xh] ; 
ys  *=  [ys  yi  yi  0]  ; 

end 

ymax  *  maxCCys  zs]); 
ypos  »  ymax/20; 

axis((“l,  2.3,  0,  aiax(ytnax  )+ypos )  ) ; 
if  (ans  -■  'Y'  |  ans  ■»  'y') 

setnilogxCxs  ,  ys ,  '  - '  ,  xs ,  zs  ,  ’  — '  ) ; 

text  (30 ,  ytnax-ypos*7  ,  ' -  Malvern'); 

text(3O,ytnax“ypos*0,  ' _  SEMEX’); 

else 

sefflilogxCxs ,ys ) ; 

end 

titie( 'HISTOGRAM  OF  PARTICLE  VOLUME'); 
xlabeK ’ Particle  Size  in  Microns  (Log  scale)*); 
ylabel (' Percent  of  Total  Volume'); 

text ( 30 , yniax-ypos+2 ,  (’Merged  from  '  num2str(Nfiles)  '  images']) 

text ( 30 ,ymax“ypos*3 ,  ('Filename:  '  file  ’.mat')) 

text  (30  ,yTnax-ypos**A  ,  ('Total  Vol:  '  num2str  (totalv)  ’  um3']) 

text(30,ymax-ypos*5,  ('Particle  Count:  '  num2str(total) ] ) 

axis. 


#  End  of  file  SEM.M 
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